| Domine 
el Código Máguina 


en su 


AO 0 BL 9 
AA SA A A 


CPC 6128-664-464 


S É y 
y 


CLIVE MIFFORD -SCOTT VINCENT 


¿tama 


Domine 
el Código Máquina 
en su 


EA EN SO 
PAT] MERA 
A 
ANESTESIA 


CPC 6128-664-464 


CLIVE GIFFORD -SCOTT VINCENT 


<> TOmma 


EP 


Título de la obra original ñ 
MASTERING MACHINE CODE ON YOUR 
AMSTRAD 464/664/6128 

por Clive Gifford y Scott Vincent 


Copyright (C) 1986, Gifford/Yincent 


Traducido del inglés por 
M.C.Dopazo 


Primera edición en español 
Copyright (C) 1986 
RA-MA 
Carretera de Canillas, 144 
28043 MADRID 


IS.B.N.: 84-86381-15-0 
Depósito Legal: M. 17825 - 1986 


almacenamiento en un sistema informático, la transmisión en cualquier 
forma o por cualquier medio, electrónico, mecánico, fotocopia, registro 
o cualquier otro métodos, sin el permiso previo y por escrito de los 
propietarios del Copyright, que, así mismo, tienen los derechos exclusi- 
vos sobre las rutinas incluidas en este libro, y sus nombres 


Existe un disco, para el Amstrad CPC 6128, que 
contiene todas las rutinas que aparecen en este 
libro, grabadas y debidamente comprobadas. 


Para obtener uma copia, dirigirse directamente 
a editorial RA-MA, Carretera de Canillas, 144, 
28043 Madrid. 


Cualquier consulta referida a este libro o a su contenido, deberá di- 


RESERVADOS TODOS LOS DERECHOS 
Prohibida la reproducción parcial o total de este libro así como el 
rigirse a Editorial RA-MA 


CONTENIDO 


Contenido - Tim Hartnell 


Ñ 
Introducción de los autores 
, Capítulo UNO ..+..oooooocooo ooo oooorro rro. o... +... 1 
¿Qué es el código máquina? +.........o.o....oo.o. 1 
Juego de instrucciones ......... oo... oo oo... E 
PO TEIDE II ERA RAE AR A AA A e 
Argumentos en contra ........o.oooooo oo ooo...» > 
Capítulo dos EA A EA RN RA E] 
Sistemas numéricos y lenguaje ensamblador ... 9 
¡ Números de ocho y diez y seis bitS .......... 6 
| Lenguaje ensamblador ..... TON E 7 
| Comprando un ensamblador ......«... o... o... .... 8 
¡ Directrices ....ooooooo.o»»o oso oronmsrrrrrrso. 9 
| 
CIPÍRÉUTO. FOSA aa des 14 
| 
Usando el código máquina en el Amstrad ..... 11 
: El hardware ......... Ao Pt Te O UE ea AO od 11 
: EL BONITO Leer a e A E AAA 1 
Escribiendo programas en códiao máquina .... 12 
] SYMBOL.-AFTERS 0 TES e bs eta as 13 
Salvando el programa .....ooooooo coro ooo ooo.» 14 
| Carga del programa .+.........oo.oo.o.o oo... .... 14 
CIPÍEGLO: CUAETO., La A A AA 15 
l Su primer programa en código máquina ....... 15 
Un cargador Hex .....o ooo ooo ooo ooo ooo coro... .. 139 
EL PODEM sy $ e RR A RA AAA 16 
MaFLaDIeS- ui a e il is 17 


Capitulo. CÍNCO scr oiaadiaa Pa 21 
Pasando parámetroS ............o.. IZ | 
Cambio del octeto inferior ......ooooooooo... 22 
Manejando CadenaS ..+.....o.ooooooo ooo...» es 2 
Una rutina de tratamiento de cadenas .......-. 23 
Capítulo seiS ..............oo.oo.....»>. HERE A e 25 
Aritmética simple .,.......... AAA AA 23 
SUMA: Y FOSA ii A 26 
Punto y acarreo .....o.ooooooooooooo».». Pal 28 
No hay división ........oooooooooooooo ooo... 28 
CapÍtulo Siete csi e 31 
PLD YASDICOS: cinc a a 31 
ESPÍS iii A ta ón o ON | 
PUSE A A at 33 ¿ 
POP At a ae te a o 33 
Alterando el SP .....oooooooo.o.o.. co... ooo...» 34 
Tenga Cuidado ........ooooooo ooo ooo...» a 36 
No hace nada iS . a ne 37 
IRAGTIPA A AGA »... 38 . 
A a A 41 | 
| 
Capítulo ocho .............. E A AR 45 
Diccionario de términos de código máquina 45 
Registros ..... A a a 45 | 
e AA E A +. 45 
A E A REA a 46 
SP A A E 46 
A ST A A RS . 46 
B+OSDI Ey Ho o a cats 46 
El juego alternativo de registros ..... 46 
Fr is AA e e 46 
Todas las instrucciones ......... ERA 47 
ADE a ee toi de ce ner Ei a e de 47 
ADD ii 47 ! 
BAND rt DESARRO 47 
BETA oe o e et ae .. 47 
CAL: cia ai . A laa 48 
COF ina ii 48 
A AS A A A . 48 
CEPD cos is e A 48 
CPDR osea E a 48 
t 


E 


RLEDA adan ii IS 56 
RA a 56 
RRA cos aa a E A A 56 
RRE iia A e A 560 
RACA: ui A AS 56 
ROAD DA AA A AAA e 56 
ROTURA A tie 56 
SB a, e aa q 56 
SOFA sa e e 56 
A A 57 
SEBA A A A OE e 57 
SRA a e a aa Da iaa 57 
SRL A a e AU A dos 57 
SUB a a o ea te de and 57 
MOR II A AA ARTE 57 
COPÍtuUlO MUOVe ¿s.m A a 59 


Operadores lógicos y manipulación de bits .. 59 


AND a da tada 59 

DORSAL ts Na esta lato 90 

AUR a A O las alas cai 61 

SETUY RES co a e as ii 62 

Girar. y desplazar ces... mesi ces 63 

RECIY RRE: 0 rra er O 64 

A E a A Aaa dr aa iodo eS 

SA ate a So E e done es 

CapItulo ¡DTeZz. init ir a a as 67 
Pantalla y rutinas de la ROM ............... 67 
Doscientos de altO ........o.. o... o... ..o. 67 

Paquete de rutinas en código máquina ...+...+...........- 71 
Uno -— Leer un Carácter .............ooocoo ooo... oo... 73 
BASTE 0 A a 273 
EnsambIiador iria a ds 74 

Dos - Girar hacia la izquierda ............ RR » 730 
BASI Css ii AA ANA A it te 75 
Ensamblador” cancion 76 


Tres - Girar hacia la derecha .................o....... 79 
BASTE AA A A a dt A 79 
ENSAMDITIDOS. Uli te Ra 80 

Cuatro - Letras gigantes ....................oo.o.o o... 83 
BASIC 50 a A SA AA A a 83 
ENS3aMbL AJO" >. ti le A A 84 

Cinco - Impresión masiva ................. o... o... ..... 89 
BASTE RS AA A 89 
ENSAMBLADO ar as 390 

Seis - Relleno de la pantalla ........................ 93 
BASE ao A A o AA a a 93 
ENnSambiador ¿«<:kee.sireE R O 94 

Siete - LOAD/SAVE sin cabecera ............o.......... 95 
BASTE eta a ias ao a ataca er aaa rave aa 95 
ENSIMDIATOS iii A A e 96 


Ocho -—- Música por interrupciones ..................... 99 


BASIC: 6 ina a ido 100 
Ensamblador cedo o e NN .. 103 

Nueve - Monitor de código Máquina... ................. 115 
BASIC iia ia it ar 115 
ENnSambLSdOr ici ns le tae ER 119 

Diez - Movimiento de bloques .....+........o.....oooo.o 125 
Bloque hacia arriba ........o.o. o... o... .... 125 

BASTE de a te leia da eto de 125 

Ensamblador .........«oooooooooonoooo»o. 126 

Bloque hacia abajo. xx. riores roscas dose 130 

BASEC: miii io e E 130 

Ensamblador «s.m .cscitrnr.r«. dns cnae rar 131 


AAA bk 


Bloque hacia la izquierda ................. 134 ] 
BASIC ..... PA a AS . 134 
Ensamblador ...........-. PE Ata 136 
Bloque hacia la derecha ........... AR 141 
BASIC ue as E a ere O 142 
Ensamblador +emris sra a de 144 
Once - Acordes RSX vc. sii serca create 151 , 
BASTE 200 e RS A E 074 
EnvolventeS.+.ooce.mieos o. ¿ecos ..... 154 
EnSambISdOr es is O do ai 156 
Organo de acordes ....oooooooooooo... RN E 163 
BASTE ami Li 103 
Doce - Compresores de pantalla ................o...... 165 
COMPreSsorF LL reas seno ja o a . 165 
BASICO ic a a A 
Ensamblador ...... A AR .... 166 
COMPIÉESSON Ei E AAA A AAA +... 168 
BASIC viaria os A 
Ensamblador .........o...o.. ¿is ATO 
Trece - DOKE y DEEK ........ooooooooooooooooorooooo.. 173 
BASIC. ur ae ne Ed e ir 17 S 
Ensamblador ..... . AA cali te Ao E 174 sd 
Catorce - El paquete de escritura de juegos ......... 177 
BASICO a A aia Ye pesy 177 
BOMBAITIEFO 2. a A AAA . 182 
Apéndices . 
APENICS A c.cormmmmiscscór a EE 189 
Mapa de memoria............. a ide 189 
Apéndice Brest iaa 191 
Códigos de operación 280 ..........-.-.. 191 
ADBNITCS E ec ARA AR 227 
Conversión hexadecimal a decimal ..... 227 


Introducción de los Autores 


Esperamos que este libro le ayude a dominar la programa- 
ción en código máquina. Hemos intentado escribir una guía 
fácil de seguir, para dar una visión interna del trabajo del 
código máquina y de sus comandos más importantes, así como 
proporcionar un grupo de cuadros y tablas útiles. Estos ocu- 
pan casi la mitad del libro. El balance final es una genero- 
sa selección de rutinas en código máquina. Estas rutinas in- 
cluyen un cargador BASIC fácil de usar, que se puede teclear 
y poner en funcionamiento en pocos minutos. Y, aunque no 
pretenda aprender en este preciso momento las interioridades 
del código máquina, este libro le proporcionará una intere- 
sante librería de útiles y (en algunos casos) divertidas ru- 
tinas. 


Escribir este libro ha sido un trabajo duro pero diverti- 
do. Esperamos que que usted obtenga tanto beneficio leyéndo- 
lo como nosotros escribiéndolo. 


Scott Vincent 
Clive Gifford 


Londres, Marzo 1986 


Prefacio - Tim Hartnell 


Ahora tiene la oportunidad de aprender a programar en có- 
digo máquina en su ordenador Amstrad. No le importe lo que 
diga la gente, no es tan fácil como para aprenderlo sin 
cierta dificultad. 


Sin embargo, con una buena guía, aún el terreno más dif í- 


cil se puede vadear. Creo que Clive y Scott - dos programa- 
dores muy competentes, con “gran experiencia en libros y 
*software' a sus espaldas - som los guías ideales para ayu- 


darle a comprender las interioridades de la programación en 
código máquina del Amstrad. 


Debe ir trabajando a lo largo del libro, saltándose las 
secciones que le presenten una especial dificultad la prime- 
ra vez que las lea. Cuando haya terminado su primera lectu- 
ra, tendrá los suficientes conocimientos como para poder 
comprender aquellas secciones que dejó sin completar la pri- 
mera vez que pasó por ellas. 


Si lo hace así, verá que es mucho más fácil la tarea, y 
sus progresos no se verán detenidos por una sección particu- 
lar que parezca más difícil que las otras. 


Y no olvide las rutinas de código máquina, listas para 
funcionar, de este libro (incluido un paquete completo para 
escribir programas de juegos) que puede usar junto con sus 
programas BASIC, aunque en este momento no comprenda cómo 
funcionan. 


Ahora ya es el momento de comenzar a aprender a dominar el 


código máquina en su Amstrad. 


Tim Hartnell, 
Londres, 1986 


CAPITULO UNO 
¿Qué es el Código Máquina?” 


Lo primero que debemos saber es que el código máquina no 
es un código mágico que crea instantáneamente programas de 
la misma calidad que el 'software? comercial. Es lento y la- 
borioso de escribir, muy difícil de depurar y frecuentemente 
produce resultados que son muy poco mejores que una rutina 
similar en BASIC. No es un lenguaje maravilloso y creemos 
que se le da demasiada importancia a los términos ? programa 
100% en código máquina” y *programador de código máquina'. 


Para comprender como fumciona el código máquina, necesita- 
mos echar primero una breve ojeada al trabajo interno de su 
ordenador. El procesador de su ordenador consta de miles de 
"puertas", o interruptores que pueden estar abiertos(off) o 
cerrados(on). Se pueden usar números binarios para represen- 
tar sus posiciones fáciimente, haciendo una correspondencia 
entre el uno=cerrado, y el cero=abierto. Sin embargo, intro- 
ducir cientos de unos y ceros para conseguir un comando que 
funcione no es un uso eficiente de nuestro tiempo, por esto 
se crearon los lenguajes de "alto nivel". El BASIC es uno de 
estos lenguajes. Reemplaza la masa de ceros y unos por algo 
fácil de entender, comandos similares a palabras inglesas. 
No es muy difícil de comprender lo que hacen comandos como 
PRINT, CLEAR y END (suponiendo que tenemos un ligero conoci- 
miento del idioma inglés, si no es así, no se preocupe, son 
pocas y de fácil comprensión cuando se han usado unas  cuan- 
tas veces). Se necesita un intérprete para traducir los co- 
mandos BASIC a dígitos binarios que pueda entender el  orde- 
nador, y esta interpretación es la que retarda enormemente 
la velocidad de operación. 


El código máquina es la serie de instrucciones a *nivel de 
máquina, en las que se convierte el BASIC. Estas instruc- 
ciones de bajo nivel pueden ser ejecutadas directamente por 
el procesador. 


El *cerebro” de su ordenador, donde se desarrolla la mayor 
parte de la acción, es la Unidad Central de Proceso o CPU. 
Cada diseño de CPU tiene su propia colección de instruccio- 
nes de máquina de bajo nivel, conocidas como Juego de  —Ins- 
trucciones. 


A 


La CPU de su Amstrad es uno de los diseños más populares A 
que se han fabricado en microprocesadores, el chip CPU 280 
de Zilog. Por esto, este libro trata de la programación en 
código máquina 280 y de cómo usar el Juego de Instrucciones 
Z80. (Muchos otros ordenadores usan el chip 280, el Spectrum 
y los de la serie MSX son algunos de ellos. Pero en cada má- 
quina hay unas determinadas condiciones que, aunque usen el 
mismo procesador 280, las hace ligeramente diferentes desde 
el punto de vista de su programación en código máquina. Un 
buen ejemplo es la forma poco usual con que el Amstrad mane- 
ja la pantalla). 


El Juego de Instrucciones 


Cada instrucción de código máquina forma parte del lengua- 
je de bajo nivel. Pueden necesitarse media docena o más de 
instrucciones en código máquina para emular un comando  sim- 
ple de BASIC. 


Hay muchas maneras de representar el código máquina. Una 
de estas formas es el Lenguaje Ensamblador que utiliza un 
nombre descriptivo pequeño, conocido como nemotécnico, para 
cada instrucción. Otro método consiste en usar un número de- 
cimal. También se pueden usar números binarios y hexadecima- 
les (base 16, que son los que usaremos en los siguiente ca- 
pítulos). Por ejemplo, la instrucción que hace que el proce- 
sador regrese desde el código máquina al BASIC tiene el va- 
lor decimal 201, su valor en binario sería 11001001, en he- 
xadecimal tendría el valor C9 y en nemotécnico sería RET. 


Ahora que tenemos una breve idea de lo que es el código 


máquina, echemos una ojeada a las razones a favor y en con- 
tra de su uso, 


A Favor 

El código máquima, cuando está bien escrito, suele ser 
bastante más rápido que una rutina comparable en BASIC. 

El código máquina le permite realizar acciones que son im- 
posibles en BASIC, tales como síntesis de la palabra. Así 
mismo, el código máquina suele ocupar mucha menos memoria 
que un programa similar en BASIC. 


También conlleva un gran prestigio el ser capaz de progra- 
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mar en código máquina. Programas que funcionan perfectamente 
en BASIC suelen ser rechazados por los críticos porque no es- 
tán escritos en código máquina, aunque no produzca ninguna 
mejora el hacerlo. 


Argumentos en Contra 


El código máquina suele necesitar muchas instrucciones pa- 
ra emular una acción simple. 


El código máquina tiende a ser difícil de leer, comprender 
y depurar. Escribir programas en código máquina suele ser 
más difícil y ocupar más tiempo que escribirlos en un len- 
guaje de alto nivel como el BASIC. 


En código máquina es muy difícil realizar cualquier cosa 
más allá de la simple aritmética, y el código puede ser —di- 
fícil de transferir de una máquina a otra. Es bastante difí- 
cil transferir un programa en código máquina desde una má- 
quina con procesador 780 a otra también basada en el 280, 
pero intentar transferir una rutina 280 a, pongamos, un 
Commodore 64 (que usa la CPU 6502) es prácticamente  i¡mposi- 
ble. 


CAPITULO DOS 
Sistemas Numéricos y 
Lenguaje Ensamblador 


Los tres sistemas numéricos que suelen usarse más frecuen- 
temente en código máquina son decimal, binario y hexadeci- 
mal. 


Como ya sabe, los números decimales se construyen en base 
diez, los binarios en base dos, y los hexadecimales en base 
diez y seis. 


Imagine que dentro de la CPU de su Amstrad hay una pila de 
pequeñas casillas, llamadas direcciones. Cada dirección pue- 
de contener ocho dígitos binarios (y un grupo de ocho dígi- 
tos binarios es conocido, por alguna oculta razón, como  o0c- 
teto o byte). Obviamente, si los ocho dígitos son ceros, el 
número contenido en esa dirección será el cero. Sin embargo, 
si los ocho dígitos son unos (ej. 11111111), la dirección 
contendrá el número 255. Por lo tanto, una dirección puede 
contener un número entre cero y 2559. 


El comando BIN$ del Amstrad convierte números decimales en 
sus equivalentes binarios: 


BINS(V,N) 


En esta sentencia, V es el valor en decimal que va a ser 
convertido y N es el número de dígitos mostrados. (El último 
parámetro no es necesario, en cuyo caso el Amstrad imprimirá 
el resultado sin ningún cero delante. PRINT BIN$(4) nos dará 
como respuesta 100, mientras que si especifica que quiere o- 
cho dígitos en el resultado, obtendremos 00000100). 


Hexadecimal (o '"hex'") es el nombre correcto del sistema de 
numeración basado en diez y seis. El rango de dígitos es 0, 
1, 2, 3, 4, S, 6, 7, 8, 9 A, B,C, D, E y F. La notación 
hexadecimal se usa en código máquina debido a su estrecha 
relación con, y su facilidad para convertir en binario, el 


Ésa 


sistema de numeración natural de los ordenadores. Ahora, un 
dígito hexadecimal es igual a cuatro dígitos binariosí(bits) 
oa medio octeto (un cocteto contiene ocho bits). ¡Al medio 
octeto se le llama "nmibble'"!. Por lo tanto, 0 en hex es i- 
gual a 0000 en binario, 2.en hex es 0010 en binario y F en 
hex es igual amd1111. en binario. PRINT HEX$ (201) producirá 
como respuesta C9. Este resultado se obtiene multiplicando 
el primer dígito hex por 16 (C=12) y sumándole el valor  de- 
cimal del segundo dígito hex (9=9), o 192+9 que es igual a 
201. 


Si quiere incluir un número hex en su programa, debe ir 
precedido por "8£'" o "£H". Un número binario debe ir precedi- 
do por "EX". 


Números de Ocho y Diez y seis Bits | 


Hasta este momento hemos tratado con números en el rango 


decimal de 0 a 255. Estos son, como dijimos anteriormente, 
números de 8 bits. Sin embargo, para obtener números mayores 
que 2535 necesitamos números de 8 octetos (16 bits). Estos 


nos dan un rango bastante más alto, entre 0 y 65535. Si te- 
nemos un número de 16 bits que en hex se representa como 
03C9, el 03 se conoce coma el octeto más significativo o al- 

, to, mientras que el otro octeto, C9, es el octeto bajo o me- 
nos significativo. El valor total de un número de 16 bits se 
calcula así: 


256 veces el octeto alto más el octeto bajo 


2356 * 03 + C9 = 256 x 3 + 201 = 969 


Por lo tanto, hemos visto cómo se obtienen los números po- 
sitivos entre 0 y 65535, pero ¿qué pasa con los números  ne- 
gativos?. Dentro de un octeto tenemos el bit más significa- 
tivo y el menos significativo. El bit más significativo es 
el de más a la izquierda, y el de más a la derecha es el me- 
nos significativo. El bit más significativo (cuyo valor pue- 
de ser 0 6 128) lo usamos como signo del número. Esto nos a- 
corta el tamaño máximo de un número de 8 bits, a 127. Sin 
embargo mantiene el rango de 256, ya que ahora podemos re- 
presentar cualquier valor entre -128 y +127. Si ponemos el 
bit de signo a cero, hacemos que el resto del octeto tome un 
valor positivo, mientras que si lo ponemos a uno, tendremos 
un valor negativo. Los números de 16 bits funcionan de forma 
similar, usando el bit de más a la izquierda del octeto más 
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significativo como bit de signo, que es como se le llama. 


Sin embargo, crear números binarios negativos no es tan 
simple como parece. Se debe seguir la regla de que la suma 
del correspondiente número positivo al valor negativo debe 
dar cero. Para conseguirlo, debemos usar un concepto numéri- 
co llamado Complemento a Dos. Este proceso se hace en dos 
partes. Primero, se debe invertir el valor de cada bit  den- 
tro del octeto, de forma que si un bit es iguala asul, debe 
pasar a cero y viceversa. Este es el proceso real de comple- 
mentar. Una vez que se ha hecho esto, se añade 1 al resulta- 
do, obteniendo el valor binario de signo opuesto al valor 
del número. 


Podemos aclarar un poco más este concepto con el siguiente 
ejemplo: 


Para cambiar +7 a -7: 
+7 = (00000111 
El complemento del número es = 11111000 


Por lo tanto, 11111001 es el equivalente binario de -7 


(Este sistema funciona igualmente para convertir el signo 
menos en más. Habrá notado que usando este sistema se obtie- 
ne el bit de signo correctamente. Los números de 16 bits se 
calculan de la misma forma - el BASIC del Amstrad guarda las 
variables enteras como números de 16 bits en complemento a 
dos. Como con los números de 8 bits, el rango se mantiene i- 
gual, aunque el máximo número se reduce a la mitad, 32767). 


Lenguaje Ensamblador 


Esperamos que esté todavía con nosotros. Desgraciadamente 
no nos queda más remedio que seguir estos pasos antes de pa- 
sar a las cosas realmente interesantes. El lenguaje Ensam- 
blador ofrece una alternativa al uso de números decimales y 
hexadecimales para representar —las rutinas e instrucciones 
de código máquina. Mientras que una instrucción de código 
máquina se muestra como un número decimal o hex, en lenguaje 
ensamblador se muestra como un nemotécnico, un nombre  abre- 
viado. Una lista de números es bastante difícil de seguir, 
pero una lista de nemotécnicos como RET (abreviatura de 
RETURN, retorno),JP (abreviatura de JUMP, salto) y LD 


(abreviatura de LOAD, cargar) es más fácil de comprender. 


En las últimas páginas de este libro hay un apéndice que 
contiene todas las instrucciones de Z80. Se han puesto en 
los dos formatos, nemotécnico y hexadecimal. Para poder in- 
troducir más fácilmente los programas de este libro, se han 
incluido también en dos formatos, em BASIC y en lenguaje en- 
samblador. El listado del BASIC es el que le resultará más 
fácil de usar en este momento, ya que se puede teclear  —di- 
rectamente en el Amstrad y ejecutarlo sin más. El listado en 
lenguaje ensamblador, necesita un programa especial (llamado 
ensamblador o assembler) para convertir los nemotécnicos en 
código que pueda entender el Amstrad. 


Comprando un Ensamblador 


Existen multitud de ensambladores en el mercado. Aunque o- 
frecen gran variedad de facilidades, todos realizan la misma 
tarea esencial, convertir los listados en lenguaje ensambla- 
dor en el código apropiado. No se debe subestimar el valor e 
importancia de un ensamblador. Puede que encuentre  extrema- 
damente difícil escribir sus primeros programas en código 
máquina en decimal o en hex, o convertir a mano los nemotéc- 
nicos en hex sin un ensamblador. A medida que usted progrese 
en el mundo del código máquina, se convencerá de que es mu- 
! cho más fácil escribir las rutinas largas en un ensamblador. 
] Si escoge el correcto, también habrá escogido un grupo de 

facilidades sumamente útiles para ayudarle en la escritura, 
depuración y almacenamiento de sus rutinas en código máqui- 
na. 


De momento olvidemos lo dicho hasta ahora, mo necesita un 
ensamblador para usar el material incluido en este libro. Si 
va a introducirse seriamente en el mundo del código máquina, 
piénselo, pues debe tomar en consideración la necesidad de 
comprar uno muy pronto. 


Si está decidido a aprender y usar el código máquina, de- 
berá comprar un ensamblador con todas las facilidades dispo- 
nibles, preferentemente uno que venga con un programa  moni- 
tor (un programa que le permite moverse dentro de la  memo- 
ria). Entre los mejores disponibles está The Code Machine 
por Picturesque Software que viene a costar en el Reino Uni- 
do unas 19.95£, que es una buema inversión. No vamos a en- 
tretenernos en discutir todas sus facilidades, baste saber 
que es el que se ha usado para escribir este libro. 
Picturesque está en 6, Corkscrew Hill, West Wickham, Kent 
BR4 9BB, Reino Unido. 


Si prefiere algo más económico, puede echarle una ojeada 
al Curso de Lenguaje Ensamblador del Amstrad proporcionado 
por Glentop Publishers en Barnet, Herts. El ensamblador que 
incluye es bastante bueno, y además viene con un curso el có- 
digo máquina, todo por 12.930£., 


Si usted es un programador pobre, puede intentar conseguir 
el número 7 (Julio de 1985) de la revista *Computing Hith 
The Amstrad', que incluye un interesante listado de un ensam- 
blador. Los ejemplares atrasados se pueden obtener de 
Freepost, Europa House, 68 Chester  —Road, Hazel Grove, 
Stockport SK7 SNY, Reino Unido. Cada número atrasado cuesta 
alrededor de 1.25£, y una cinta que contiene todos los pro- 
gramas de la revista cuesta unas 3.75£. 


En nuestro país podemos obtener un buen ensamblador como 
es el DEVPAC de HISOFT, que distribuye Indescomp, por unas 
6500A,. Se puede encontrar también en disco para el CPC6128 
en los comercios especializados como Sinclair Store, Peek 
and Poke o en la sección de microinformática de los grandes 
almacenes. Este paquete incluye también un estupendo  desen- 
samblador que nos ayudará a analizar los programas de los 
que no dispongamos listado. 


Directrices 


En nuestro país podemos obtener uno de los mejores ensam- 
bladores, DEVPAC de HISOFT, que distribuye Indescomp par 
unas 6500. Lo puede encontrar en las comercios especializa- 
dos como MICROTODO, en la calle Orense 3 de Madrid o en cual- 
Quiera de las tiendas de Sinclair Store o de Peek and Poke o 
en la sección de microinformática de los grandes almacenes. 
Este paquete incluye también un estupendo desensamblador aque 
nos ayudará a analizar los programas de los que na disponga- 
mos listado. 


ORG - define la dirección de la primera parte del 
código ensamblado. 


END - marca el final del programa. 
EQU - asigna un valor a un nombre de etiqueta. 
DEFL - le permite dar un valor a una etiqueta, tantas 


veces como lo necesite. 


DEFB 


DEFW 


DEFS 


DEFM 


PRNT 


ENT 


No se preocupe si no entiende totalmente estas directri- 
ces. Cuando comience a usar el ensamblador o a estudiar los 


asigna un valor a un octeto, en la dirección 


actual de ensamblaje. 


asigna un valor a los dos octetos siguientes a 
la dirección actual de ensamblaje (es la versión 


de doble octeto de DEFB). 


crea un núrero de octetos en blanco desde la 


dirección actual de ensamblaje. 


permite introducir mensajes en forma de cadena 


de caracteres. 


permite activar e desactivar la impresión 


mientras se ejecuta el ensamblaje del código. 


La sintaxis exacta de este comando varía 
dependiendo ensamblador. 


Define el punto de entrada del programa. 


listados en lenguaje ensamblador, podrá volver a leer 


páginas y le resultará más sencillo de aprender el 


cado de cada una. 
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estas 


CAPITULO TRES 
Usando el Código Máquina 
en el Amstrad 


En este capítulo veremos el *hardware* del Amstrad, cómo 
preparar la máquina para un programa en código máquina y có- 
mo salvar y cargar el programa. 


El Hardmare 


Echemos una breve ojeada a las diversas partes que  compo- 
nen el ordenador Amstrad. Estas partes se pueden dividir en 
entrada, salida y proceso. La entrada, obviamente, incluye 
el teclado, pero también se puede referir a uná palanca de 
juego o a un *ratón?. 


La salida incluye el monitor y cualquier interfaz que per- 
mita mandar datos a una impresora o a cualquier otro dispo- 
sitivo externo. _ : 


Las partes del Amstrad que se encargan del proceso interno 
son la más importantes desde el punto de vista del código 
máquina. Como ya mencionamos en el primer capítulo, el 
Amstrad está basado en la CPU 280. La CPU es el unidad *pen- 
sante' del ordenador, que se encarga de coordinar el trabajo 
de las demás partes. La memoria es, por supuesto, la más im- 
portante de ellas. 


La memoria es de dos tipos básicos, ROM y RAM. ROM es la 
abreviatura de *Read Only Memory* (Memoria de Solo Lectura) 
y no puede ser alterada por medio del código máquina. Esta 
invulnerabilidad es necesaria para mantener información im- 
portante - el sistema operativo y el intérprete BASIC. Pode- 
mos investigar los valores almacenados en la ROM, que pueden 
ser muy útiles como veremos más adelante. 


RAM es la abreviatura de *Random Access Memor y * (Memor ia 


de Acceso Aleatorio) y es el tipo de memoria que se usa para 
almacenar los programas. No solo se puede leer, también se 
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puede alterar. 


La memoria del Amstrad consta de 685536 posiciones de RÁM y 
32768 de ROM. Puede que le sean más familiares los términos 
32K y 64K (donde 1K son 1024 octetos). Cada posición de me- 
moria es capaz de almacenar un número de 8 bits que, como 
vimos en el capítulo anterior, puede representar un número 
decimal dentro del rango 0 a 255. También hemos visto que a 
esta posición de memoria de 8 bits se le llama octeto. i 


Uma vez aprendido esto, vayamos a ver las otras partes del 
Amstrad. 


El Sonido 


El chip PSG es el Generador de Sonido Programable del 
Amstrad. Es un AY-3-8912, el mismo que se puede encontrar en 
otros ordenadores. El PPI es el Interfaz Periférico Progra- 
mable y es la unión entre la CPU y el PSG, la puerta de  im- 
presora, la pantalla y el casette y/o la unidad de disco. El 
CRTC también tiene que ver con la pantalla (su nombre comple- 
to es Controlador de Tubo de Rayos Catódicos). 


La última pieza que vamos a ver del hardware del Amstrad 
es el 'Gate Array? (se puede traducir por *Matriz de  puer- 
tas). Es un dispositivo propio del Amstrad, que ayuda a so- 
lapar la ROM y la RAM así como a la generación de la ¡imagen 
de la pantalla. El solapamiento de la ROM y la RÁM se trata- 
rá, junto con el mapa de memoria, un poco más adelante. 


Escribiendo Programas en Código Máquina 


Saliendo ya del hardhare del Amstrad, vamos a ver los pro- 
cedimientos involucrados en la escritura de código máquina. 


Primeramente, debemos reservar un área de memoria para co- i 
locar el programa en código máquina. Aunque su Ámstrad tiene 
64K (o más, si tiene una máquina 6128), no toda-la memoria 
está disponible para sus programas. Si teclea PRINT FRE(CO), 
verá que tiene a su disposición unos 42K de memoria. Sin em- 
bargo, solo va a necesitar una fracción para la mayoría de 
los programas en código máquina. 


Esta memoria disponible para el usuario tiene una frontera 
sobre la que está situado el código que controla el ordena- | 
| 
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dor. Este límite superior se llama HIMEM y es una variable 

que puede imprimirse y alterarse. Si enciende su Ámstrad e 

introduce PRINT HIMEM, obtendrá un resultado de unos 43K, de- 
pendiendo del modelo de Amstrad que posea. El valor de HIMEM 

se puede alterar poniendo en su lugar un valor inferior al 

original, por medio del comando MEMORY. MEMORY 40000 baja 

HIMEM a la dirección 40000 dejando libre una parte de la RAM 

para que la use con su código máquina o rutina. En el resto 

del libro hacemos esto para dejar, espacio a nuestros progra- 

mas. El área que hay sobre HIMEM no se ve afectada por el co- 
mando NEW. 


SYMBOL AFTER 


Hay otro punto a tener en cuenta en la reserva de memoria. 
El comando SYMBOL AFTER reserva memoria para los gráficos 
definidos por el usuario (UDG). Esta memoria se reserva in- 
mediatamente debajo de HIMEM y permanece aunque se altere el 
HIMEM. Si, por ejemplo, HIMEM estaba al principio en 40000 y 
la alteramos a 36000, la memoria para los UDGs estarán por 
encima de HIMEM y no le será posible acceder a ellos al or- 
denador. Esto nos puede causar algunos problemas. 


Si mira a una de las muchas rutinas de la segunda parte 
del libro, verá que la primera línea del programa suele ser: 


10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 


Esta línea libera toda la memoria reservada para los UDGs, 
altera HIMEM bajándolo a 39999 (lo que significa que la pri- 
mera dirección disponible para la rutina de código máquina 
es 40000, uno por encima) y después reserva memoria para 16 
UDGs, empezando desde la nueva posición de HIMEM hacia aba- 
jo. (Para una explicación más detallada de SYMBOL AFTER y de 
los gráficos definidos por el usuario, diríjase al manual 
del Amstrad). 


Una vez que ha introducido su programa en código máquina 
en la memoria, sálvelo antes de ejecutarlo. No de RUN al pro- 
grama sin haber salvado una copia del mismo a la cinta o al 
disco. A diferencia de los programas en BASIC, con sus mensa- 
jes de error, si el programa en código máquina no funciona 
adecuadamente, lo más probable es que le falle el ordenador 
obligándole a apagarlo y volverlo a encender de nuevo y per- 
diendo un trabajo que le puede haber llevado largo tiempo. 
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Salvando el Progr ama 


Para salvar un programa en código máquina, no tenemos más 
que añadir algunos parámetros e»tras al comando SAVE normal. 
El nuevo formato es: 


SAVE '"'NOMBREPRG”,B,dir. principio, longitud, punto entr. 


La dirección de comienzo es la dirección de memoria desde 
la que se salvará el programa, mientras que el punto de  er- 
trada es la dirección desde la que se ejecuta el programa. 


La longitud del programa es el número de octetos que ocupa 
la rutina. Se puede calcular con la siguiente fórmula: Direc- 
ción final de la Rutina - Dirección de comienzo de la Rutina 
+1. 


Carga del Programa 


La carga de un programa en código máquina es muy simple. 
Solamente debe teclear LOAD  ''NOMBREPGM" o incluso LOAD "". 
Se puede reubicar el programa especificando una nueva direc- 
ción de comienzo, ej. LOAD 'PANTALLA",30000. Sin embargo, de- 
be tener en cuenta que los programas pueden contener instruc- 
ciones que sean dependientes de la dirección original de 
comienzo (esto se ve más claro en los siguientes capítulos, 
particularmente en el que se trata las instrucciones de sal- 
to (JP)). 
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CAPITULO CUATRO 
Su Primer Programa 
en Código Máquina 


Ahora ya tiene una idea acerca de la preparación para la 
rutina en código máquina, Así mismo, conoce lo que es el len- 
guaje ensamblador. Ya ha llegado el momento de usar estos co- 
nocimientos en su primer programa en código máquina. 


Hace poco, leí en una revista dedicada al Amstrad una car- 
ta de un lector desesperado porque no podía hacer funcionar 
su código máquina. Tecleaba los números hexadecimales, como 
C9, y nemotécnicos, como RET y LD, directamente en la máqui- 
na. Por supuesto, todo lo que consiguió fueron montones de 
mensajes de *'syntax error?”. 


Nosotros ya sabemos que este método no es el correcto ya 
que (a) para usar nemotécnicos necesitamos un ensamblador y 
(b) el código debe ser introducido en la memoria del Amstrad 
mediante POKEs. 


Un Cargador Hex 


Para realizar este trabajo necesita un pequeño programa co- 
nocido como cargador. Las rutinas se suelen presentar con un 
cargador incorporado, como todas las rutinas de la segunda 
mitad de este libro. Para las rutinas muy cortas, como las 
que vamos a tratar en algunos de los siguientes capítulos, 
es mejor usar un programa cargador especial. Este que presen- 
tamos aquí es un cargador muy simple (hemos visto algunos 
que añaden muchas divertidas facilidades que aumentan el nú- 
mero de páginas del programa, para realizar la misma función 
que un programa de diez líneas). 


Teclee el siguiente programa y sálvelo a disco oa cinta. 


Lo va a necesitar unas cuantas veces antes de terminar con 
el libro. 
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ARA 


1 CARGADOR HEXADECIMAL 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 

20 n=40000 

30 INPUT a$ 

40 IF LEN(a$) /2<> INT(LEN(a$)/2 THEN PRINT "*ERROR* vuelva 
a introducir la última línea': GOTO 30 

50 b$=LEFTS (a$, 2) 

609 POKE n, VAL ("8£'+b$) 

70 n=n+1 

80 a$=RIGHTS (a$, LEN (a$) -2) 

90 1F a$="'" GOTO 30 ELSE 50 


Veamos lo que hace realmente el cargador hexadecimal. La 
línea 10 prepara la reserva de memoria (como se explicó en 
un capítulo anterior). La línea 30 acepta una cadena de  dí- 
gitos hex y comprueba que se le ha dado un número caracteres 
par, ej. si la cadena tiene nueve caracteres, entonces la ca- 
dena debe tener un error en la entrada de datos. 


La línea 50 toma los dos primeros caracteres de la cadena 
y hace un POKEÉ de ellos en la memoria del Amstard, comenzan- 
do en la dirección 40000. La línea 80 elimina esos dos carac- 
teres de la cadena y, si quedan más dígitos vuelve a la línea 
50 donde se repite el proceso completo. Si no hay más  dígi- 
tos, el programa vuelve y pide otros datos. Cuando haya ter- 
minado la entrada de datos, pulse ESC dos veces para cortar 
la ejecución del programa. 


El Programa 


Ahora veamos nuestro magnífico y potente programa en códi- 
go máquina. Se lo ofrecemos en forma de nemotécnico y en he- 
xadecimal ...¿está preparado?... 


RET co 


No hay mucho que ver ¿verdad?. Estas instrucciones ya las 
hemos visto anteriormente. Es el comando RETURN que devuelve 


control desde una subrutina y, si no hay subrutinas, vuelve 
al BASIC. Por lo tanto está admirablemente indicado para 
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nuestros propósitos. Si funciona conseguiremos volver al 
BASIC sin problemas, y si no funciona no habremos perdido 
mas que un minuto tecleándolo. Asegúrese de salvar el Carga- 
dor Hexadecimal a cinta antes de ejecutarlo. 


Ejecute el cargador hexadecimal, introduzca el par de dí- 
gitos hex y vuelva al BASIC. La rutina ya está introducida 
en la memoria de su Amstrad. Para arrancarla necesita usar 
el comando BASIC CALL. Este comando debe ir seguido por la 
dirección de memoria en la que comienza la rutina. En este 
caso, como la mayoría de las rutinas de este libro, comien- 
zan en la dirección 40000. CALL 40000 ejecutará el pr ogr ama 
y volverá al BASIC sin ningún problema. Si tiene problemas, 
apague su máquina , enciéndala de nuevo, cargue el cargador 
hexadecimal y compruebe el listado del programa con mucho 
cuidado. Después, ejecútelo y asegúrese de que introduce C9, 
el valor hex de RET. 


CALL es un comando muy potente en el Amstrad. Lo comproba- 
rá cuando lea un poco más adelante el capítulo que trata de 
cómo pasar parámetros a, y desde los programas en código má- 
quina. 


Variables 


Los programas en BASIC no pueden sobrevivir sin el uso de 
variables. El código máquina tiene sus propias variables, co- 
nocidas como registros. Los registros están muy limitados si 
los comparamos con la libertad con que se usan las variables 
en BASIC. 


Hay unos cuantos registros especializados, pero por el mo- 
mento solo consideraremos los de propósito general. Hay seis 
de ellos: B, C, D, E, H y L. Cada registro es similar a una 
posición de memoria. Solo pueden contener un número entre ce- 
ro y 2395. Para aumentar esta capacidad, se emparejan los re- 
gistros, obteniendo BC, DE y HL. Así son capaces de contener 
números de 16 bits en el rango entre cero y 655835. 


Debemos usar estos registros en las diversas instrucciones 
de código máquina. La más común de ellas es LD, que es la a- 
breviatura de LOAD, Es el equivalente al LET del BASIC. Por 
lo tanto, LET B=10 o B=10 tiene su equivalente en código má- 
quina con LD B,10 (carga B con 10). Esta forma de cargar se 
conoce como Direccionamiento Inmediato. 


Es bastante difícil escribir una rutina en código máquina 
que no use la instrucción LD. Aparece en varias formas. Como 
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ya hemos visto, se puede cargar un registro con un valor nu- 
mérico constante. También se puede hacer LD a un registro con 
el valor de otro registro, como en LD B,C. Recuerde que siem- 
pre se carga el registro que aparece en primer lugar con el 
contenido del segundo. 
Acumulador 

Antes de seguir con las versiones disponibles de la ins- 
trucción LD, debemos conocer al más especializado de los re- 
gistros. Al registro *A” se le conoce como registro acumula- . 
dor. Veremos sus facilidades en el capítulo seis, cuando tra- 
temos la aritmética simple. 


Hay un número de LDs específicos al registro A. Es el úni- 
co registro de 8 bits capaz de cargarse directamente desde 
una posición de memoria. Se puede usar de la misma forma que 
los otros registros generales, en la forma LD A,C o LD A,190. 


Veamos estos LDs especiales. LD A, (nn) carga Á con el con- 
tenido de la dirección nn de memoria. Los paréntesis signi- 
fican *con el contenido de?, Es posible hacer el proceso a 
la inversa y cargar una posición específica de memoria con 
el valor del registro A. LD (nn),A lo hace, nn sigue siendo 
una posición de memoria. 


Para demostrar todo lo expuesto, veamos una rutina de ejem- 
plo. Siga para esta rutina el mismo procedimiento que para 
la anterior, usando el cargador hexadecimal. 


Ensamblador Hexadecimal 
LD A, (41090) 3A 28 A0 
LD (41001),A 32 29 A0 
RET C9 


Haga una CALL 40000 para que la rutina cargue en 41001 el 
valor que hay en 41000, pero ejecutando una simple rutina en 
código máquina. Para comprobar que ha funcionado, teclee: 


PRINT PEEK(41000);" ";PEEK(41001) 


+.» y los números deben ser iguales. 


Observe lo fácil que habría sido caer en una trampa en 
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este punto. Muchas rutinas de este libro comienzan en la di- 
rección 40800. Habría sido muy fácil usar 40000 en esta, en 
vez de 41000. Sin embargo, si lo hubiéramos hecho, habr [amos 
colocado un nuevo valor dentro de la rutina, con 40001 con- 
teniendo la misma instrucción que la dirección 408000, LD A. 


Esto debe ser evitado en cualquier rutina en código máqui- 
ma. En esta no es muy importante el fallo, pero no es muy a- 
consejable permitir que una rutina se modifiquue a sí misma 
cuando es importante o compleja... 


Veamos otro par de registros y su uso con la instrucción 
LD. IX e IY se llaman registros índice. Son de 16 bits y se 
Usan especialmente para pasar parámetros desde el BASIC. al 
código máquina y viceversa, como se verá en el próximo capí- 
tulo. LD IX, (dir) carga el registro IX con el contenido de 
la dirección. 


F es el registro de señalizadores, llamado algunas veces 
registro de estado. De vez en cuando cohabita con el regis- 
tro Á de forma que nadie se da cuenta de ello. 


Cada uno de los bits de F tiene su propósito específico. 


Son: 


Bit 7: Señalizador de signo, o S. 

Bit 6: Señalizador de cero, o Z. 

Bit 5: No se usa. 

Bit 4: Señalizador de medio acarreo, o H. 

Bit 3: No se usa. 

Bit 2: Señalizador de paridad/rebasamiento, o PV, o P. 
Bit 1: El señalizador de sustracción o de negación. 
Bit 0: Señalizador de acarreo, Oo C. (No confundirlo con 


el registro C). 


El señalizador de medio-acarreo lo ponen las instrucciones 
aritméticas si hay un acarreo desde el bit tres al bit cua- 
tro o, en el caso de pares de registros, desde el bit once 
al bit doce. 


El señalizador de sustracción es puesto por cualquier ins- 
trucción que implique una sustracción, y restaurado por cual- 
quier imstrucción que implique una suma. 
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No hay instrucciones que alteren directamente el valor de 
F, Sin embargo, a Ff se le puede introducir un valor xx, usan- 
do LD C,xx/PUSH BC/POP AF. De forma similar, se puede leer 
el estado de los señalizadores H y N usando PUSH AF/POP BC y 
examinando después los bits en el registro C. 


No se preocupe si esto le parece incomprensible de  momen- 
to. Ya lo verá claro durante el curso (se lo prometemos), y 
entonces podrá volver a releer esta sección comprendiéndola 
completamente. 
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CAPITULO CINCO 
Pasando Parámetros 


Ya sabemos que el comando CALL del BASIC se usa para acce- 
der a una rutina en código máquina. CALL puede ir acompañado 
por algo más que la dirección de la rutina a la que se lla- 
ma. Esta sección trata del uso del comando CALL para pasar 
parámetros tanto desde el BASIC. al código máquina, como en 
sentido contrario. 


Hay varios tipos de parámetros que se pueden pasar al, y 
desde, el código máquina. Veamos los tres tipos más corrien- 
tes. 


El primero es un número entero que puede ser un número O 
una variable numérica entera. El valor debe estar en el ran- 
go de un número en complemento a dos de 16 bits, de forma 
que 31092, 9, 220 y F% (donde Fx es igual a 1000) están per- 
mitidos. 


Cuando se llama a la rutina en código máquina, el registro 
A contiene el número de parámetros que siguen al comando 
CALL. Esto puede ser más o menos útil para usted. Cada pará- 
metro es almacenado usando el registro índice IX (que hemos 
visto parcialmente en el capítulo anterior y que veremos más 
adelante en el diccionario de código máquina). El valor del 
parámetro de dos octetos se almacena con el octeto más bajo 
primero y el más alto a continuación. 


El registro IX contiene la dirección del octeto más bajo 
del último parámetro. El octeto alto del último parámetro y 
los octetos de los demás, si los hay, se almacenan desde la 
dirección IX+1 en adelante. Por lo tanto, si se introduce u- 
na CALL  —40000,258, (IX+*0) contendrá el octeto bajo 2 y 
(1x+1) contendrá el octeto alto 1. (Si necesita refrescar la 
memoria: los números de 16 bits se calculan 256x*octeto al- 
totocteto bajo, en este caso 256x1+2=258). 


Supongamos que queremos hacer una CALL a 30000 para cargar 
el parámetro en un registro normal de dos octetos, como el 
HL, y que el parámetro es la variable B%. Su rutina en códi- 
go máquina debe comenzar con LD L,)(IXx+0) seguida por 
LD H, (IX+1). Si fuera el tercero desde el último parámetro, 
debería ser LD L, (1X+4) seguido por LD H),(IX+5). En otras 
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palabras, el octeto bajo va siempre el primero y para todos 
los parámetros, hay dos octetos apuntados por el registro IX 
más un desplazamiento. 


El segundo tipo de parámetro es también una variable ente- 
ra pero, a diferencia del anterior, se puede devolver desde 
el código máquina al BASIC. Para conseguir esto en la CALL, 
se debe añadir un carácter *” delante del nombre de la va- 
riable. (Naturalmente, debe ser una variable y no un  núme- 
ro). CALL 40000,0BX hará que (1X+0) e (1X+1) contengan la 
dirección del valor de B%. 


Por lo tanto, si quiere alterar el valor de B%, debe en- 
contrar la dirección donde está almacenada examinando (1X+0) 
e (IX+1). Después debe modificar las dos posiciones de memo- 
ria que contienen el valor de B% antes de volver al BASIC. 


Por ejemplo, si quiere alterar el valor de B% a 258, debe 
cargar las posiciones de memoria dadas por (1X+0)+256x* (1X+1) 
con 2 (el octeto inferior) y las posiciones de memoria dadas 
por (1X+0)+256* (1xX+1)+1 con 1 (el octeto superior). 


Cambio del Octeto Inferior 


y Echemos una breve ojeada a otro pequeño programa en código 
máquina. Este acepta la CALL con un parámetro y cambia lo 
que hay en el octeto inferior del parámetro, por un 6. Si 
quiere puede usar el programa cargador hexadecimal para pro- 
bar la rutina. 


Ensamblador Hexadecimal 
LD L, (I1X+0) DD 6EÉE 00 
LD HA, (1IX+1) DD 66 Q1 

LO (H),6 36 06 

RET Cc9 


La primera línea toma el octeto inferior de la dirección 
del parámetro y lo pone en el registro L. La segunda línea 
toma el octeto superior de la dirección del parámetro y lo 
pone en el registro H. Con la dirección del parámetro carga- 
da en el par de registros HL podemos alterar el valor de la 
variable, alterando la memoria apuntada por ese par de re- 
gistros. En la tercera línea, lo cambiamos a só. (En un 
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OMV 


Y 


momento le mostraremos un par de cosas más que se pueden ha- 
cer con él). En la cuarta línea volvemos al BASIC. 


Para usar la rutina teclee: B%=0: CALL 40000,0BX. Si impri- 
mimos B% después de ejecutar la rutina, veremos que B% tiene 
ahora el valor 6. Puede jugar experimentando con el código 
máquina, altere el número hexadecimal de la tercera línea 
(06 en el listado) por otro valor y ejecute la rutina de 
nuevo. B% tendrá ahora el nuevo valor. Mirando los códigos 
de operación que hay al final del libro, altere la instruc- 
ción LD (HL),nn a LD (HL),A. Esto nos devolverá el número de 
parámetros disponibles. 


Manejando cadenas 


El tercero y último de los tipos de parámetros que estamos 
viendo, es de cadena. Este funciona de una forma ligeramente 
diferente de la información numérica. Para empezar, solo 
puede usar variables de cadena; no puede poner CALL 
40000,''AMSTRAD". Aquí también debe preceder al nombre de la 
variable el carácter 0” 


El registro IX contiene la dirección del parámetro, como 
en los casos numéricos, pero esta vez no es la dirección 
donde reside en memoria, sino la dirección de otra posición 
de memoria - el comienzo del bloque de descripción de cade- 
ma. Este bloque contiene la dirección donde comienza la ca- 
dena y su longitud. 


El primer octeto del bloque de descripción de cadena es la 
longitud de la cadena, y tiene un valor entre 0 y 255. Los 
dos octetos siguientes forman la dirección de memoria donde 
comienza la cadena, y está en la forma habitual de el octeto 
inferior primero y el superior a continuación. Esta es la 
dirección del primer carácter de la cadena. La cadena debe 
estar definida de antemano, aunque solo sea como A$="". 


Una Rutina de Tratamiento de cadenas 


Esta pequeña rutina toma la cadena y nos dice su longitud. 
Para hacer esto necesitamos un parámetro adicional, una va- 
riable entera que contenga el valor devuelto. 


Ensamblador Hexadecimal 
LO L, (1X+0) DD SE 00 
LD H, (1X+1) DD 66 01 

LD A, (HL) 7E 

LD C, (1X+2) DD 4E 02 
LD B, (1X+3) DD 46 03 
LD (BO,A 02 

RET co 


Ejecute ahora una CALL 40000,9V4Z%,AS con A$ y V% definidas 
de antemano, al terminar tendrá en V% el valor de la lonmgi- 
tud de la cadena A$. 
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CAPITULO SEÍS 
Aritmética Simple 


Ahora vamos a realizar algunas operaciones de aritmética 
simple en código máquina. Para hacerlo, necesitamos algunas 
instrucciones nuevas. 


Las operaciones aritméticas más simples en código máquina 
son INC (incrementar) y DEC (decrementar). INC suma uno al 
registro especificado, que puede ser un registro de 8 bits. 
un par de registros de 16 bits o un registro de índice. Ade- 
más, estas instrucciones pueden alterar el valor de una po- 
sición de memoria como en INC (HL) - esto se conoce como di- 
reccionamiento indirecto. 


INC es un comando de un solo octeto. INC A sumará 1 al va- 
lor contenido en el registro A, mientras que INC IX hará lo 
mismo con el contenido del registro IX. Si está incrementan- 
do un registro de 8 bits y el valor del mismo pasa de 295, 
entonces el valor se hará cero. Si se incrementa un par de 
registros de 16 bits, cuando su valor pasa de 65935, también 
se vuelve cero. 


DEC funciona de la misma forma que INC y todas las forma- 
ciones de instrucciones que son válidas para INC, también lo 
son para DEC. Estas son: 


INC o DEC r (r es un registro de 8 bits) 

INC o DEC rr (rr es un par de registros de 
16 bits) 

INC o DEC IX 

INC Oo DEC IY 

INC o DEC (HL) 

INC o DEC (1X+d) 

INC Oo DEC (IY+d) 


Si decrementa un registro de 8 bits cuando su valor es ce- 
ro, obtendrá el valor 255 - el procedimiento opuesto al de 


INC. 


Mientras que las instrucciones INC y DEC de 8 bits afectan 
a la mayoría de los señalizadores, las de registros de 160 
bits (cuando se usan com INC o DEC) mo afectan a ninguno de 
ellos. Para las instrucciones de 8 bits, se pone el señali- 
zador de signo (se hace igual a 1) si el bit 7 del resultado 
es 1. El señalizador de cero se pone si el resultado es ce- 
ro. 


El medio acarreo se pone si hay un acarreo desde el bit 4 
del resultado. El señalizador de rebasamiento se pone si se 
altera el bit 7 del resultado. El señalizador de sustracción 
se pone si la última operación realizada ha sido una ins- 
trucción de resta, como DEC. Observe que el señalizador de 
acarreo permanece sin alterar. 


Suma y Resta 


ADD y SUB son dos ejemplos de nemotécnicos fáciles de en- 
tender. Es bastante obvio que son abreviaturas de las pala- 
bras inglesas 'addition”* (suma) y *substraction* (resta). 


ADD y SUB funcionan solamente con un registro de 8 bits, 
el A, y con el par de registros HL y los registros índice, 
IX e IY, de 16 bits. Aparte de sus funciones, que difieren, 
la sintaxis es casi la misma. 


ADD y SUB se pueden comparar con ciertos comandos del 
BASIC. Así nos damos una idea más clara de como se pueden u- 
sar en una rutina: 


LET A=A+9 ADD A,9 
LET A=A+C ADD A,C 
LET A=A-C SUB A,C 
LET A=A-178 SUB 4,178 


Solamente el registro Á puede trabajar directamente con 
estos comandos. ADD B,9 o ADD C,D no están permitidos. Por 
lo tanto, si quiere realizar operaciones aritméticas con 0- 
tros registros, debe usar un procedimiento similar a este, 
que resta 8 del registro E. 


26 


LD A,E (Carga Á con el contenido de E) 
suB 8 (resta 8 de A) 


LO E,A (carga E con A, el nuevo valor de E) 


Siempre que tenga que hacer una suma o una resta usando un 
registro de 8 bits, debe asegurarse de que el resultado de 
la operación cabrá dentro de un número de 8 bits. 


Para las operaciones que den un resultado mayos, se puede 
usar la suma y resta de 16 bits. La mayor ía de las operacio- 
nes de aritmética de 16 bits se realizan con el par de re- 
gistros HL. A estos se le pueden sumar y restar otros pares 
de registros, como vemos aquí: 


ADD HL,BC€ 
ADD  HL,DE 
ADD —HL,HL 
ADD  HL,SP 


Tenga en cuenta que el segundo par de registro no es modi- 
ficado por esta instrucción. Las operaciones aritméticas con 
los registro índice funcionan así: 


ADD. IX,BC 
ADD  IX,DE 
ADD IX, IX 
ADD  IX,SP 


ÍY se maneja de la misma forma. No hay ninguna instrucción 
que pueda sumar directamente un número a HL. Una forma de 
hacer esto sería cargar el número deseado en DE y usar  —des- 
pués ADD HL,DE, pero así perder íÍamos el contenido del par de 
registros DE. El señalizador de acarreo también resulta a- 
fectado por estas operaciones. Así, si el resultado obtenido 
es mayor de 695535, se pone el señalizador de acarreo a 1, en 
caso contrario se pone a 0. 
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Punto y Acarreo 


Hay otras dos instrucciones que tienen que ver con la suma 
y la resta. Funcionan de la misma manera que ADD y SUB, ex- 
cepto en que hacen uso del señalizador de acarreo. Estas son 
ADC (suma con acarreo) y SBC (resta con acarreo). En el caso 
de la aritmética de 8 bits, solo funcionan con el registro A 
como las anteriores. En aritmética de 16 bits funcionan so- 
lamente con el par de registros HL, pero no con los regis- 
tros índice IX e IY. ADC y SBC incluyen el señalizador de a- 
carreo en el cálculo, por lo que su equivalente en BASIC se- 
ría: 


LET A=A+Sracarreo ADC A,5 
LET A=(A-12)-acarreo SBC 4,12 


Estas instrucciones son muy potentes ya que permiten rea- 
lizar operaciones aritméticas con números de 32 bits. Algu- 
nas veces necesitará asegurarse de que el señalizador de a- 
carreo está a cero antes de usarlo. Una forma de hacerlo es 
usando la instrucción AND A que no altera el valor contenido 
en Á pero pone el señalizador de acarreo a cero, ya que no 
produce acarreo. 


No hay División 


Ya habrá observado que no hay instrucciones de multiplica- 
ción ni de divisiónm. Si su programa requiere fórmulas  com- 
plejas y cálculo, puede que sea mejor escribir esas partes 
en BASIC. Una desventaja del código máquina es su dificultad 
en manejar funciones matemáticas complejas. 


Sim embargo, es posible emular la multiplicación fácilmen- 
te, usando la instrucción ADD. El registro Á contendrá el 
valor original, y la respuesta una vez que se haya ejecutado 
la multiplicación. 


La multiplicación por Z es muy simple: ADD A,A 


En efecto, cualquier número dentro del rango de 8 bits y 
que sea miembro de la familia, como  2x2=4x2=8x2=16x2=32, 
puede usarse facilmente como multiplicador. 
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ADD A,A 


ADD A = multiplicación por 4 y 
ADD 'A,A 

ADD A,A 

ADD A,A = multiplicación por 8 


Puede continuar así de forma que cuatro instrucciones ADD 
sirven para multiplicar por 16, cinco por 32 y así sucesiva- 


mente. 


Otros multiplicadores no son tan fáciles de emular, pero 
se puede hacer usando la instrucción LD y en algunos casos 
SUB. Aún así, se pueden realizar con muy pocas instrucciones 
y pueden resultar interesantes para usarlas en sus rutinas 
en el futuro. He aquí unos ejemplos: 


LD B,A 

ADD A,A = x 3 
ADD A,B 

LD B,A 

ADD A,A 

ADD A,A = x 7 
ADD A,A 

SUB A,B 


Observe la últimas instrucciones de la rutina de multipli- 
cación por siete. Si mira la tabla de Códigos de Operación, 
verá que no están en ella. Lo que sucede es que SUB B es e- 
xactamente lo mismo que SUB A,B. Puede eliminar la A al es- 
cribirlo, ya que estas instrucciones solamente funcionan so- 
bre el registro A. Esto se aplica a todas las operaciones 
SUB que parece que aparentemente usan un solo registro. 


CAPITULO STETE 
Pila y Saltos 


La Pila 


Hay un área de memoria RAM que está prevista para almace- 
nar piezas de información que ayudan a la máquina a saber lo 
que está haciendo. Funciona de la siguiente forma: 


La palabra "pila" (stack) es algo que se usa en informáti- 
ca para expresar exactamente lo que significa. Imagine una 


pila de cajas de cartón. Cada caja representa una posición 
de memoria, a la que se le asigna una dirección - pero si 
quiere saber lo que hay dentro de una caja determinada, la 


única que puede ver facilmente es la de arriba. Si intenta 
coger una de enedio, se le caerán encima todas las cajas que 
hay sobre ella. Y, la única forma de añadir facilmente una 
caja a la pila es poniéndola en la parte superior. 


Las posiciones de memoria de la pila están situadas de la 
misma forma. Se pueden poner cosas encima, pero solamente 
encima, y solo se pueden tomar de la parte superior. 


Hay dos palabras especiales para manejar la pila - una de 
ellas significa "apilar un nuevo número en lo alto" y la o- 
tra "tomar un número de lo alto"; la primera palabra es 
PUSH, la segunda es POP. Si hace PUSH del número cinco en la 
pila, y después hace PUSH del número 39ABC, y luego hace PUSH 
de, digamos, 8000h, el primer número que obtendremos al ha- 
cer POP sería 8000h, ya que este es el número que está ahora 
en lo alto de la pila (ya que fué el último del que hicimos 
PUSH); el segundo número que obtendr íamos con POP sería 
GABC, y el tercero sería el cinco. 


La pila se almacena en las direcciones más altas de la me-: 
moria del AMSTRAD, para evitar que el programa BASIC +coli- 
sione' con la pila cuando uno de los dos crezca. La pila es 
realmente muy peculiar, ya que crece de arriba hacia abajo. 
Es más eficiente de esta forma. Por lo tanto recuerde que, 
la pila, o la pila de la máquina como se le suele llamar, es 
como una pila de cajas de cartón amontonadas en el suelo de 
una tienda, excepto que, desafiando las leyes de Newton, ha 
decidido apoyarse en el techo y crecer hacia abajo. La parte 
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alta - la única parte de la que puede tomar cosas - está ha- 
cia abajo. 


La pila es sumamente importante en un ordenador, de forma 
que hay un registro especial que solamente se usa para alma- 
cenar la posición de lo alto de la pila (la parte con la di- 
rección menor - la que podemos tomar). El registro se llama 
SP, que es la abreviatura de Stack Pointer (apuntador de pi- 
la). Es realmente un par de registros porque almacena dos 
octetos separados, pero a diferencia de los otros pares de 
registros (BC, DE y HL) mo podemos separarlo en dos mitades 
- están pegados sólidamente. 


Aquí es donde trabajan las instrucciones PUSH y POP. Lo 
vamos a explicar en hex porque así nos resultará más fácil. 
Supongamos que HL contiene el valor ABCD. Esto significa que 
H contiene el valor AB y L el valor CD. Ahora, la instruc- 
ción PUSH HL almacenará el número ABCD en lo alto de la pi- 
la. Esto lo hace almacenando primero la parte alta (AB), y 
después la parte baja (CD). Después alterará el valor de SP 
ya que se han añadido dos octetos más a la pila, y la posi- 
ción de la parte alta habrá bajado dos posiciones. 


Desafortunadamente no es posible almacenar registros sim- 
ples en la pila. Solamente se puede hacer PUSH de pares de 
registros, así se puede hacer PUSH de BC, pero no de B sola- 
mente. Debemos tener en cuenta que PUSH BC mo altera el va- 
lor de BC, simplemente copia su contenido sin cambiarlo. Es- 
to, por supuesto, es aplicable a todas las instrucciones 
PUSH. 


La instrucción PUSH se puede emular en BASIC con tres sen- 
tencias separadas: 


PUSH HL SP=SP-2 
POKE SP+1,H 
POKE SP,L 


POP, por supuesto, funciona al revés. POP HL toma primero 
el registro L de la pila, y después el registro H. SP cambia 
también, ya que la parte alta de la pila se mueve. 
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POP. HL L=PEEK SE 
H=PEEK. (SP+1) 


SP=SP+2 


Verifique, usando las sentencias BASIC dadas. que PUSH Hu 
seguida de POP DE es lo mismo que LU D,H seguido de LD E,L. 


PUSH 


He aquí las códigos de la instrucción PUSH. Una de ellas 
requiere una pequeña explicación. 


FS PUSH AF 
c5 PUSH BC 
DS PUSH DE 
ES PUSH HL 


El par de registros AF, que normalmente no se pueden  —NUsar 
como tal, está construido por los dos registros A y F, de la 


misma forma que BC está formado por B y L. A es un registro 
Que ya hemos usado, pero F es algo completamente diferente. 
ta F significa Flags (señalizadores). Para comprender el 


trabajo de F debe mirarlo en forma binaria. fF puede, por  e- 
jemplo, tener el valor 41h, que en binario es 01000001. Cada 
uno de los dígitos es cero Ga uno, y cada uno de los diferen- 
tes dígitos tiene un significado que corresponde a un seña 
lizador. Uno de estos señalizadores, el de acarreo, está al- 
macenado en el dígito binario más a la derecha de fF. 


POP 


Los códigos de las instrucciones POP son similares a 1 
usados para PUSH. Estos son! 


Q 
Y) 


] 


Fi POP AF 


c1 POP BC 
D1” POP. DE 
El POP Ht 


Una de las utilidades principales de PUSH AF y POP AF. es 
hacer PUSH y POP del valor del registro A. El hecho de que F 
se introduzca también en la pila puede ser ignorado. PUSH AF 
almacenará el valor de A hasta que se necesite de nuevo, en 
cuyo momento se puede recuperar mediante el uso de POP AF. 
Esto puede ser útil si tiene que usar el registro Á para re- 
alizar cálculos que no se pueden realizar con otro registro, 
pero donde el valor de Á puede necesitarse en otro punto del 
programa. 


Por ejemplo, para sumar 25 al valor de Bosin alterar el 
valor de A (o cualquier otro registro): 


FS PUSH AF 

78 LD AB 

c619 , ADD A,19h (=25d) 
47 LD B,A 

F1 POP AF 


¿Porqué solo se va a alterar el registro B y no cualquier 
otro? Trate de averiguar lo que hace la rutina anterior, an- 
tes de seguir leyendo. 


Alterando el SP 


Se puede usar el registro SP casi en la misma forma que u- 
samos BC y DE. Podemos sumarle o restarle, y también se pue- 
de cargar. Los códigos hex son: 


FS LD SP, HL 
317777 LD SP, nn 
ED7B7777 LD SP, (nn) 
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ED737777 LD (nm , SP 
39 ADD  HL,SP 
ED7A ADC  HL,SP 
ED7Z SBC  HL,SP 
33 INC — SP 

3B DEC SP 


Estas instrucciones son muy potentes y útiles. Suponga que 
quiere intercambiar los valores de D y E sin alterar ninguna 
otra cosa. La siguiente rutina lo hará. 


DS PUSH DE 
DS PUSH DE 
33 INC — SP 
D1 POP. DE 
33 INC — SP 


La instrucción INC SP del final es necesaria para restau- 
rar el apuntador de pila a su valor original. Si no lo hi- 
ciéramos podríamos conseguir un bonito fallo del ordenador. 


SP no es el único registro especializado que se usa. Hay 
otro registro de dos octetos llamado PC, que significa 
Program Counter (Contador de Programa). Su trabajo consiste 
en recordar por donde va ejecutándose el programa. Cada vez 
que el Amstrad tiene que ejecutar uma instrucción, echa una 
mirada a lo que le dice el PC. Si le dice A004, se iráa e- 
jecutar la instrucción que hay en la posición A004 de  memo- 
ria. Después se incrementa el valor de PC en el número de 
octetos que tiene la instrucción, de modo que la siguiente 
vez iráa ejecutar la siguiente instrucción en secuencia. 
Por ejemplo, si A004 contiene la instrucción LD A,B, el PC 
se incrementará para apuntar a AQ05. Si la instrucción en 
A00S5 fuera LD B,2 se incrementar ía el PC en dos, una vez que 
la hubiera ejecutado, ya que LD B,2 es una instrucción de 
dos octetos. El PC estaría entonces apuntando a A007 donde 
empezaría la siguiente instrucción. 


Si altera el valor de PC, el efecto es como el comando GO 
TO del BASIC. La única diferencia es que el código máquina 
no usa números de línea, de forma que ha de hacer GO TO a la 
dirección correcta en lugar de al número de línea. La 
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instrucción de código máquina que lo hace se llama JP, que 
es la abreviatura de JumP (salto). JP A000 significa GO TO 
dirección A008B8 y continúa ejecutando el código máquina desde 
ahí. Por supuesto, todo lo que hace esta instrucción es car- 
gar en PC el valor A000 (pero sin incrementarlo al final de 
la instrucción) de modo que cree que la siguiente instruc- 
ción del programa está en A000. Es bastante más útil para 
nosotros pensar que funciona como un tipo de GO TO, ya que 
es para lo que la usamos. 


Tenga Cuidado 


Tenga cuidado con el JP. Si crea un bucle infinito en có- 
digo máquina puede ser muy duro. Se habrá hundido con él - 
no podrá cortarlo jamás, a menos que restaure la máquina 0 
la apague. Un ejemplo de un bucle infinito puede ser: 


77 A000 Lo (MPD,A 
23 A001 INC HL 
Cc300fF0 A0O02 JP A000 
Hemos escrito la dirección en la columma de central. Nor - 
malmente no se hace así sino que se marcan las líneas impor- 
tantes con etiquetas, o palabras que nos dicen qué líneas 


hacen cada cosa. Estas etiquetas no aparecen en hex, y solo 
tienen utilidad cuando se escriben para nuestro propio uso. 
Si por ejemplo, decidimos llamar START a la primera línea, 
nuestro bonito y estúpido programa se escribiría así: 


77 START LD (AD ,A 
23 INC HL 
c300F 0 JP START 
Hay otra instrucción, similar a JP llamada JR, o Jump 


Relative (Salto Relativo). Significa que salte hacia adelan- 
te un número de octetos dado. En muchas formas es mejor que 
JP, porque tiene solo dos octetos de longitud en lugar de 
tres, y porque se puede reubicar la rutina completa cambiar 
el destino de las instrucciones JP. JR 8 no tiene ningún e- 
fecto, y por lo tanto hace que se ejecute la siguiente 
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instrucción, JR 1 hace que salte la siguiente instrucción 
(suponiendo que ésta tenga un solo octeto de longitud). Para 
saltar una instrucción de dos octetos, o dos instrucciones 
de un octeto, necesitará usar JP 2. 


También es posible saltar hacia atrás usando la instruc- 
ción JR, ya que hay una convención que hace que cualquier 
número hex entre 80h y FFh se tomará como un número negativo 
(que será realmente 256d menor que el número que represen- 
ta). Observe que el número menos cinco, por ejemplo, se re- 
presenta como FB, y por lo tanto es posible usar la ipnstruc- 
ción JR -5, pero tenga en cuenta que debido a esta conven- 
ción no podremos decir JR 129d, por ejemplo, porque 129d es 
81h, que será tomado por -127d y hará un salto hacia a- 
trás.Por lo tanto, el rango al que queda limitada esta ins- 
trucción es desde -128d a +127d. 


No Hace Nada 


JR 0, como ya hemos dicho, no hace absolutamente nada. 
Continuará ejecutando la siguiente instrucción. Es importan- 
te recordar que los salto relativos se cuentan desde la si- 
Quiente instrucción. JR 0 significa que ejecute la siguiente 
instrucción más cero. ¿R 1 significa que ejecute la sigquien- 
te más uno. Consecuentemente, si dijéramos JR -2 deber [amos 
contar hacia atrás dos octetos, empezando en cero con la si- 
guiente instrucción. Observará que dos octetos antes está 
precisamente el comienzo de la instrucción que acabamos de 
ejecutar, JR -2. Por lo tanto, JR -2 es un bucle infinito 
sobre la misma instrucción, y no es una instrucción recomen- 
dable para usarla en nuestros programas. 


El (realmente estúpido) programa del bucle infinito ante- 
rior se puede volver a escribir con un octeto menos usando 
JR en lugar de JP. 


77 START LD (HOD,A 
23 INC HL 
18FC JR START 
Observe que he escrito "JR START" en vez de "JR -4”. Esto 


hace al programa mucho más fácil de seguir, ya que todo lo 
que tenemos que hacer es buscar la etiqueta START para saber 
hacia donde nos lleva la instrucción JR. 


37 


JR y JP son más o menos inútiles por sí mismas sin condi- 
ciones añadidas, de la misma forma que el GO TO del BASIC 
sería poco útil si no se usara en conjunto con la instruc- 
ción IF/THEN GO TO. Necesitamos cierto tipo de saltos condi- 
cionados, de forma que podamos decir IF cierta condición es 
verdadera THEN salta a la nueva dirección. Sin esta facili- 
dad,JP y JR solamente se podrían usar para crear bucles  in- 
finitos. Aunque el código máquina no tiene la misma flexibi- 
lidad que el BASIC, nos permite comprobar cuatro condiciones 
en JR, u ocho condiciones en JP. Estas son (para JR): 


18ee JR e Salto relativo de e octetos. 


Z0ee JR NZ, ee IF el último resultado 
calculado no fué cero 
THEN Salto relativo de 


e octetos. 


Z8ee JR Zz,e IF el último resultado 
calculado fué cero 
THEN Salto relativo de 


e octetos. 

30ee JR NC,e IF ACARREO=0 THEN 
Salto relativo de 
e octetos. 

38ee JR C,e IF ACARREO=1 THEN 


Salto relativo de 


e octetos. 


Y para JP: 


C3gqapp JP pa Salto a la dirección pa. 
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Cc2aqapp 


CAaape 


D2agpp 


DAaapp 


EZ2gqapp. 


EAgqapp 


F2agpp 


FAqapp 


JP 


JP 


JP 


JP 


JP 


JP 


JP 


JP 


Ahora, aunque 
BASIC sería IF A$="HOLA”" 
aún esta tarea tan tonta también se puede llevar a cabo con 


el código máquina. 
instrucciones de la 


rección pa, 


Repuesta: 


NZ, pq 


Z,pg 


NC, paq 


C,pa 


PO, pa 


PE), pa 


P,pa 


M,pa 


está muy 


IF el último resultado 
calculado no fué cero 


THEN salto a la dirección pa. 


IF el último resultado 
calculado fué cero 


THEN salto a la dirección pa. 


IF ACARREO=0 THEN salto a 


la dirección pa. 


IF ACARREO=1 THEN salto a 


la dirección pa. 


Ver más abajo. 


Ver más abajo. 


IF el último resultado 


calculado fué positivo (+) 


THEN salto a la dirección pa. 


IF el último resultado 


calculado fué negativo (-) 


THEN salto,a la dirección pq. 


lejos de poder hacer lo que en 
THEN PRINT "ADIOS", pronto verá que 


Primero tenemos que explicar dos de las 


lista anterior - JP PO y JP PE. Como 
puede suponerse, JP PO significa IF PV=0 THEN salta a la di- 
y JP PE significa IF PV=1 THEN salta a la direc- 
ción pa. Pero ¿qué es PV exactamente?. 


PV es otro señalizador - parecido al de ACARREO. 


A A A 


Solamente puede almacenar uno de dos valores - uno O cero. 
La P significa Parity (paridad) y la V significa overflom 
(rebasamiento), ya que el ordenador, como los buenos matemá- 
ticos, no puede deletrear correctamente. Su uso es bastante 
fácil de explicar: 


JP PO se puede considerar como JP NV (salto por 


No-rebasamiento) 


JP PE se puede considerar como JP V (salto por 


rebasamiento) 


Técnicamente no puede escribir JP NV' o JP V ya que no es 
uma convención estándar, pero es una ayuda para la memoria. 
Pienso que no importa si usted es convencional o no mientras 
sepa lo que significa (NV=PO y V=PE). 


Ahora, veamos el rebasamiento. Si consideramos los números 
entre 80 y FF. como números megativos y entre 00 y 7F como 
números positivos, pueden suceder algunas cosas extrañas en 
la aritmética, si tratamos de cruzar la frontera. Por ejem- 
plo, 41h (positivo) más 41h (positivo) será igual a 82h 
(¿negativo?). A este tipo de equivocación se le llama reba- 
samiento, por lo tanto JP V saltará si ocurre este tipo de 
rebasamiento y JP NV saltará si no ocurre. En términos sim- 
ples, ocurre un rebasamiento si el resultado de cualquier o- 
peración aritmética, actuando en números en convención posi- 
tivo/negativo (también llamada convención de ''complemento a 
dos') da una respuesta con 'signo equivocado”. 


Repitiendo una vez más: JP NV es una forma mo estándar de 
escribir JP PO, y JP V es otra forma de escribir JP PE. Por 
lo tanto NV=PO y V=PE.,. Usted debe inventar alguna forma de 
recordarlo. 


Todas estas instrucciones, si se combinan adecuadamente. 
con otras, pueden comprobar cualquier situación concebitble. 
En efecto, solo hay otro tipo de instrucción necesaria para 
hacer a JP y JR tan potentes como IF/THEN/GO TO - esa ins- 
trucción se llama CP, o ComParación. 


CP compara el registro A con cualquier otro registro o con 
cualquier constante numérica. Por ejemplo, podemos tener CP 
B (Comparar A con B) o CP í (Comparar Á con L) o CP 3E (Com- 
parar Á con el número 3E). Lo que hacen realmente estas ins- 
trucciones se puede comparar con la sentencia BASIC, DUMMY = 
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A-B. 

En otras palabras, se realiza una resta, pero no se tiene 
en cuenta su resultado, y el valor de A permanece sin alte- 
rar. Sin embargo, los señalizadores si cambian y se ponen de 
acuerdo con el resultado. Si A contiene 05 y B contiene 06, 
después de la instrucción CP B, saltará con una instrucción 
JP NZ (ya que 05-06 no da cero), JP C saltará (ya que 05 es 
menor que 06), JP NV saltará (no hay rebasamiento ya que el 
resultado de 05-06=FF es negativo y se suponía que lo era) y 
JP M saltará (ya que FF es negativo). Aunque realmente se e- 
fectúa la resta, debemos hacer incapié en que el resultado 
es desechado, y el valor de A no cambia. 


Puede hacer algunos trucos útiles con CP: 


IF A=B THEN GOTO ... CP BY/gRr 2 

IF A<B THEN GO TO... CPBY/yJRC 

(Esta solo funciona si asumimos que todos los números 
son positivos) 


IF A<B THEN GO TO... CP. BY JPM 


CALL 


También en código máquina podemos llamar a subrutinas. El 
equivalente en código máquina del GO SUB del BASIC es la 
instrucción CALL. CALL paq se utiliza para hacer un GO SUB a 
la subrutina cuyo punto de entrada está en la dirección pa. 
El equivalente a la instrucción RETURN es RET. Creo que le 
resultará familiar. RET tiene un doble propósito - al final 
de una subrutina significa "retorna desde esta subrutina”; 
si no hay subrutina de la que retornar, significa "retorna 
al BASIC". CALL y RET pueden tener condiciones impuestas, 
como vemos a continuación: 


CDaapp CALL paq c9 RET 

C4gqgqpp CALL NZ,pa co RET  NZ 
CCagpp CALL Z,pa c8 RET Z 
D4gqapp CALL NC, paq De RET NC 
DCaapp CALL C,>,pa D8 RET C€ 
E4aqpp CALL PO, pa E0 RET PO 


“CALL NV, pq” "RET NY" 


ECaapp CALL PE, pa ES RET PE 

"CALL V, paq" "RETO y" 
F4qapp CALL P,paq FO RET P 
FCaapp CALL M, pa F8 RET M 


Como habrá imaginado, las instrucciones como RET Z se pue- 
den usar también para volver condicionalmente al BASIC, ej. 
RET Z es igual a IF cero THEN RETURN al BASIC. 


En BASIC no hay pila, «por lo tanto no necesitamos  preocu- 
parnos de ella. En código máquina, sin embargo, si la hay y 
por lo tanto necesitamos preocuparnos de ella. Hay dos ins- 
trucciones además de PUSH y POP, que alteran la pila. Se 
llaman CALL y RETURN. 


CALL pa es equivalente a PUSH "la dirección de la siguien- 
te instrucción a ejecutar'", seguido por JP pa. 


RET es equivalente a POP DUMMY seguido por "salta a la di- 
rección DUMMY". 


Usted debe ser capaz de ver cómo este procedimiento hace 
que CALL y RET. actúen como deben. Aunque es bastante efí- 
ciente, hay algunas cosas que debemos ver. 


El valor de SP no debe ser alterado durante el curso de u- 
na subrutina, ya que CALL y RET tienen que ver con la pila. 
Usted puede hacer PUSH en "la pila tantas veces como quiera 
durante la subrutina, siempre que haga el mismo número de 
POPs antes de intentar el retorno. Un truco muy interesante 
que debe conocer es cómo alterar la dirección de retorno de 
una subrutina. Digamos que queremos poner B000 como direc- 
ción de retorno. Veamos cómo se hace: 


El POP HL 
2100509 LD HL,B000 
ES PUSH HL 


La primera instrucción borra de la pila la dirección de 
retormo original. La segunda y tercera la reemplazan por una 
nueva dirección de retorno alternativa. Cuando llegue más a- 
delante una instrucción RET, el control "retornará" a la di- 
rección B0900. Otro truco útil que debe conocer es cómo  a- 
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segurarse de que sus subrutinas siempre saldrán con la pila 
"equilibrada". Una forma de hacerlo es almacenar el valor 
del apuntador de la pila en alguna parte para recogerlo al 
final. 


CAPITULO OCHO 
Diccionario de Términos 
de Código Máquina 


Este capítulo es una pequeña guía de referencia de lo a- 
prendido en los capítulos anteriores. Este diccionario con- 
tiene una breve descripción de todos los Códigos de  Opera- 
ción del 280, los registros y un tipo de comandos llamado 
directrices que se encuentran en casi todos los listados de 
ensamblador. Estos resúmenes le dan la oportunidad de com- 
probar comandos particulares o facilidades que puede no ha- 
ber comprendido completamente, así como una fuente de refe- 
rencias para cuando, en el futuro, trate de usar los  coman- 
dos o registros menos usados. 


El diccionario incluye también detalles de los códigos de 
operación del 280 que no han sido explicados. la lectura de 
la explicación que se proporciona aquí le dará un buen cono- 
cimiento de su uso y funcionamiento. 


Registros 


Además de los registros A, B), C, D, E, H y L, y los  seña- 
lizadores de signo, PV y acarreo, hay otro grupo de regis- 
tros y señalizadores, aunque no todos ellos son útiles. Vea- 
mos primero los registros. 


1X es un par de registros; sin embargo no se puede dividir 
en los octetos que lo componen, como el HL. Cualquier ins- 
trucción en código máquina que involucre al HL (siempre que 
no vaya entre paréntesis) puede ser escrito con el IX en vez 
de con el HL. (Hay tres excepciones a la regla: EX DE,HL 

ADC HL y SBC HL). El código hex de este tipo de instruccio- 
nes es DD seguido por el código hex correspondiente a la 
misma instrucción con el registro HL. Cualquier instrucción 
en código máquina que involucre al registro (HL) (entre pa- 
réntesis) se puede escribir con (lX+dd) en lugar de hacerlo 


con el HL - la dd representa un octeto cualquiera. Por ejem- 
plo, si tenemos una instrucción LD (HL),03 también existe u- 
na instrucción LD (IX+2A4),03. El octeto de desplazamiento 
puede ser muy útil. (Hay una excepción a esta regla: JP (HL) 
solo se puede escribir como JP (IX) - mo JP (IX+tdd). El có- 
digo de este tipo de instrucción es DD seguido del código 
hex de la instrucción correspondiente , pero con el octeto 
de desplazamiento insertado en el tercer octeto del código 
hex. Por ejemplo, el código hex para LD (HL),03 es 3603; por 
lo tanto, el código hex de LD (1X+2A4),03 es DD362A03. 


IY es otro par de registros. Se usa de la misma forma que 
el IX, excepto que el código hex de las instrucciones que 
involucran al registro IY usan el octeto FD en lugar del DD. 
Aunque la primera letra de los dos registros se la l, no 
tienen la parte alta común, y son totalmente independientes 
el uno del otro. 


sP es el apuntador de la pila. es un par de registros como 
el BC o el DE, sin embargo, los dos octetos que lo componen 
no se pueden separar. SP siempre apunta al dato de más arri- 
ba de la pila de la máquina. Si cambia el valor de SP, se 
crea una nueva pila automáticamente en la dirección especi- 
ficada. Las direcciones inmediatamente por debajo del valor 
actual de SP corren el riesgo de ser reescritas sin el con- 
sentimiento previo de la rutina de manejo de interrupciones 
del 280 (ver DI). 


A es un registro del que debe conocer todo. Á veces se le 
llama el acumulador, ya que se puede usar de una o dos for- 
mas en las que no se puede usar ningún otro registro. (ej. 
ADD A,06). 


B,C,D,E,H y L. Estos som los registros con los que tiene 
que estar familiarizado. 


El Juego de Alternativo Registros, se compone de los re- 
gistros A*,B*,C*,D*,E*,F*,H? y L*? y son de poco uso, excepto 
para copiar el contenido de los registros normales por segu- 
ridad. Sin embargo, el Locomotive BASIC usa estos registros, 
por lo que no se recomienda usarlos em el Amstrad. 


F es el registro que contiene los señalizadores que hemos 
visto anteriormente. 
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Todas las instrucciones 


Por el momento solo hemos visto unas cuantas instrucciones 
Z80, por lo que suponemos que estará interesado expandir su 
vocabulario. Aquí le damos una lista detallada de todas las 
instrucción disponibles. Se van a tratar por orden alfabéti- 
co, de forma que pueda usar este capítulo como un pequeño 
diccionario de instrucciones de código máquina. Por esta ra- 
zón vamos a volver a ver los que ya hemos estudiado en capí- 
tulos anteriores. Puede ser interesante volver a leerlos pa- 
ra que nos sirva de refresco de la memoria. 


ADC Empezamos con ADC. Aparece en dos formas: ADC A,r y 
ADC HL)>3s. La r se usa para especificar que puede ser  —cual- 
quiera de los registros A, B, C, D, E>, H, L, una constante 
numérica o el contenido de una dirección (HL), (IX+*d) o 
(IY+d). ADC A,r es una instrucción de un solo octeto. Calcu- 
la la suma de Á más r más el ACARREO y almacena resultado en 
A. ADC HL,s es una instrucción de dos octetos que suma HL 
más s más el ACARREO, y almacena el resultado en HL. La s 
significa cualquiera de los pares de registros BC, DE, HL, 
IX o IY. ¿Podría decirnos porqué (ignorando los señalizado- 
res) ADC A,A hace lo mismo que RLA?. 


ADD Muy similar a ADC, excepto que no se usa el señalizador 
de acarreo en la operación. Sin embargo sí le afecta el re- 
sultado final. Hay dos importantes diferencias entre ADC y 
ADD. Primero, el juego de instrucciones ADD HL,s (donde s 
significa lo mismo que en la instrucción ADC) son instruc- 
ciones de un octeto en lugar de dos. Segundo, está permitido 
Usar otras dos instrucciones ADD IX,s y ADD IY,s. 


AND Esta instrucción solo tiene una forma - AND r. El va- 
lor del registro A se altera de bit en bit. Si ese bit es 
cero, permanece sin modificar, en caso contrario toma el va- 
lor del bit de r correspondiente. Por lo tanto, AND 09 dará 
siempre cero como resultado y AND FF deja el registro Á sin 
alterar. AND afecta a todos los señalizadores, el bit de a- 
'carreo se pone siempre a cero. 


BIT El formato de esta instrucción es BIT n,r, donde n es 
un número entre cero y siete. La instrucción altera el seña- 
lizador de cero (solamente) de acuerdo con el valor actual 
del bit en cuestión. Si el bit es cero, el señalizador de 
cero se pone a uno, en caso contrario se pone a cero. Esta 
instrucción se puede usar en combinación con JR Z (que sal- 
tará si el bit era cero) o com RET NZ (que retornará si el 


47 


bit no es cero). BIT no altera el contenido de los regis- 
tros, ni cambia el valor del señalizador de acarreo. Es una 
instrucción de dos octetos. Yo no suelo usarla casi nunca, 
pero cuando se necesita puede ser muy práctica. 


CALL Ya hemos visto antes esta instrucción - es como el GO 
SUB. Su funcionamiento exacto es este! hace PUSH en la pila 
de la dirección de retormo y después salta a la dirección a 
la que llama. Debido a que la dirección de retorno (ahora 
en la pila) se usa en la instrucción RET, es de vital impor- 
tancia que la subrutina no altere la pila. En la subrutina 
solo puede hacer PUSH dé datos siempre que haga POP de ellos 
antes de retornar. CALL se puede usar también con condicio- 
nes - por ejemplo, CALL Z)3pa (pa es una dirección absoluta) 
que significa IF está puesto el señalizador de cero, enton- 
ces haz CALL pq, en caso contrario continúa con la siguiente 
instrucción. 


CCF  —Complementa el señalizador de acarreo. Si el señaliza- 
dor de acarreo era cero, se pone a uno, y si era uno se pone 
a cero. 


cP En la forma CP r, calcula el resultado de restar r de 
A, pero no almacena el resultado en ninguna parte. El valor 
anterior de Á (y por supuesto el de r) permanecen sin  alte- 
rar. Sin embargo alteran todos los señalizadores, de forma 
que se pueden usar instrucciones condicionales como JP Z o 
JP C. CP r seguido por JR Z saltará si Ames igual ar (ya 
que Á menos r es cero) y así sucesivamente. 


CPD puede imaginarse esta instrucción como CP (HL) seguida 
de DEC HL y de DEC BC. £l señalizador PV se pone a cero si 
BC se pone a cero al decrementarse, y a umo si no lo hace. 
El señalizador de cero se pone si la parte CP de la instruc- 
ción encuentra que Á es igual a (HL), en caso contrario se 
pone a cero. 


CPDR Básicamente es igual que GCPD, excepto que la instruc- 


ción se ejecuta una y otra vez - es una forma de bucle auto- 
mático. CPDR significa ComParar, Decrementar y Repetir. El 
bucle terminará en uno de estos dos casos: (1) cuando la 


comparación encuentra que Á es igual que (HL) o (II) BC lle- 
ga a cero, en cuyo caso se pone a cero el señalizador PV. 


CPI Es como CPD, excepto que HL se incrementa en lugar de 
decrementarse. 


CPIR Es como CPDR , excepto que HL se incrementa en lugar de 
decrementarse. 


CPL— Es una abreviatura de ComPLementar. El registro A se 
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altera bit a bit. Si un bit particular está a uno, se pone a 
cero, y viceversa. En otras palabras, si A tenía 11010101 
(en binario), después de una instrucción CPL se cambiaría a 
00101010 (binario). Es el equivalente de restar A de FF. Los 
señalizadores no resultan afectados por esta instrucción. 


DAA Suponga que quiere sumar 16 y 26 sin convertir los nú- 
meros a hex. Puede hacer lo siguiente: LD A,16 seguido por 
ADD A,26. Por desgracia, como la máquina trabaja en hex, el 
valor final de A será 3C en lugar de 42. La instrucción DAA 
(Ajuste Decimal del Acumulador) cambiará el valor de A de 3C 
a 42. Su funcionamiento es realmente complicado - toma nota 
de lo que ha ejecutado y si a sumado o restado; pero siempre 
funciona correctamente. Por ejemplo, la secuencia LD A,42 
seguida de SUB 06 volverá a poner Á con el valor 3C, pero 
esta vez el DAA lo cambiará a 36, ya que 42 menos seis es 
36. La instrucción cambia cada uno de los señalizadores de 
acuerdo con el resultado. 


DEC” Esta es otra de las instrucciones que aparecen en dos 
formas. Puede ser DEC r (un registro simple) o DEC s (un par 
de registros). DEC r es fácil de comprender - el valor del 
registro r es decrementado (se le resta uno, ose cambia 
desde 00 a FF), el señalizador de acarreo permanece sin al- 
terar y el de cero cambia como se espera que lo debería ha- 
cer. DEC s, sin embargo, es una instrucción traidora, el se- 
ñalizador de cero ¡no se altera!. En efecto, no se altera 
ninguno de los señalizadores. Por lo tanto, DEC BC/JR  NZ,-3 
es un bucle infinito o mo tiene ningún efecto. Debe tener 
mucho cuidado y recordarlo siempre - muchos de nuestros pri- 
meros programas fallan debido a ello. 


DEFB hablando técnicamente no es una instrucción de código 


máquina - es lo que se llama una directriz. La palabra DEFB 
debe ir seguida por umo o más octetos de datos, cada uno se- 
parado por una coma. Se suelen poner los datos en hex, pero 


no siempre es necesario, ej DEFB 3A,45d,11011110b,'"f" es vá- 
lido. Los datos se insertan dentro del programa en código 
máquina, en el punto en que ocurren y en el orden en que es- 
tán listados. Los datos que forman parte de un programa en 
código máquina, no se deben ejecutar, ya que el 280 no puede 
distinguir entre datos y programa. 


DEFM es similar a DEFB, excepto que los datos que siguen a 
la palabra DEFM deben ser una cadena de caracteres flanquea- 
dos por comillas. Las comas dentro del texto se interpretan 
también como datos, mo como separadores. Por ejemplo, DEFM 
"SOLSTICIO" hace que se inserten los octetos 53 4F 4C 53 54 
49 43 49 4F dentro del programa. DEFM significa DEFine Men- 
saje, al contrario que DEFB que significa DEFine Bytes (De- 
fine Octetos). 
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DEFS Otra directriz. Esta significa DEFine Space(s) (Define 
espacios). La palabra DEFS debe ir seguida de una constante 
numérica. (Solo una, recuérdelo). El ensamblador insertará 
tantos ceros como indique el número. Por lo tanto, DEFS 08 
insertará ocho octetos en ese punto del programa. DEFS se u- 
sa principalmente para definir "variables" en RAM; ej. PEDRO 
DEFS 02 (PEDRO es una etiqueta) y en algún otro lugar del 
-programa LD (PEDRO) ,HL. 


DEFW Una de las últimas directrices (por ahora). DEFNW signi- 
fica DEFine Word (Define palabra). Se usa de forma similar a 
DEFB, excepto que los datos tienen dos octetos de longitud, 
no uno, por lo que DEFN 4000 es equivalente a DEFB 00,40. 
Observe cómo se han cambiado los octetos de orden. Con  DEFL 
se podemos usar etiquetas y expresiones, por lo que DEFW 
7000, PEDRO, JUAN+3 es totalmente válido. 


DI Significa Disable Interrupts (Inhabilitar interrupcio- 
nes) y, aunque suena bastante confuso, su uso es inmensamen- 
te simple. Cincuenta veces cada segundo se manda un impulso 
a las patillas del chip 280. Hay un señalizador llamado 
IFF1, que significa Flip Flop 1 (un flip flop es un disposi- 
tivo que puede tomar uno de dos valores, como un interruptor 
de la luz), y el efecto del DI puede compararse a RES. IFF1. 
Cuando el 280 recibe uno de estos impulsos, comprueba el va- 
lor del señalizador IFFií. Si está puesto, el ordenador actúa 
como si le hubiera llegado uma instrucción RST 38 (o CALL 
38), con la dirección de retorno en la siguiente instrucción 
en secuencia. Si IFF1 se restaura no se toma esa acción y 
cualquier programa en código máquina se seguirá ejecutando 
normalmente, el señalizador IFF1 se debe poner a uno antes 
de intentar volver al BASIC. 


DJNZ Otra abreviatura. Esta significa Decrementar B y saltar 
si no es cero. Por lo tanto, si B es 7, DJNZ lo reduce a 6 y 
salta al nuevo destino. Si B es uno, DJNZ lo pondrá a cero y 
mo saltará. En su lugar, ejecutará la siguiente instrucción. 
La forma de esta instrucción es DJUNZ e, donde e es un octeto 
simple. Si B se decrementa a cero, se ignora e. Si no, e es- 
pecifica la longitud del salto. El desplazamiento se calcula 
como en una instrucción JR. 


El ¿Le suena? Es otra abreviatura. El significa Enable 
Interrupts (Habilitar interrupciones), y es la opuesta a Dl. 
.Esta instrucción equivale a SET IFF1. Ver DI para una expli- 
cación más completa. 


EQU Abreviatura de EQUate (igualar). No es una instrucción 
de código máquina, sino una directriz. Cada EQU debe tener 
una etiqueta, y la palabra EQU debe ir seguida de un número 
(en el rango 0000 a FFFF) o una expresión como  JUAN+Z. 
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Cuando el ensamblador encuentra la directriz, no toma ningu- 
na acción. y mo se insertan octetos en el programa - por lo 
tanto, no tiene importancia en que lugar del programa se si- 
túan los EQU, aunque se suelen colocar al principio del pro- 
grama. Lo que hace es asignar un valor numérico (el valor 
dado) a su etiqueta. En otras palabras, si usted tiene ANA 
EQU 9000 y más adelante LD HL, (ANA), la instrucción se com- 
pila como LD HL, (9000). 


EX significa EXchange (Intercambio). Esta instrucción in- 
tercambia los valores contenidos en determinados pares de 
registros. Hay cinco instrucciones EX - estas son EX AF,AF?5 


EX DE,HL; EX (SP),HL; EX (SP>,IX; y EX (SP),IY. No alteran 
ningún señalizador, todo lo que hacen es intercambiar los 
valores - EX DE,HL reemplaza DE por el valor de HL y HL por 
el valor de DE. Las tres ultimas son las más interesantes - 
el valor de HL (o IX o IY) se intercambian con el valor de 
la parte superior de la pila, de forma que LD BC,0123/PUSH 
BC/LD HL,4567/EX (SP),HL deja en BC el valor 4567 y en HL 
0123. EX (SP),HL no mueve el apuntador de la pila, como tam- 
poco lo hacen EX (SP), IX ni EX (SP), IY. 


EXX Puede imaginarse esta instrucción como EX BC,B*C? se- 
guida de EX DE,D*E” seguida por EX HL,H*L”?. Básicamente, ca- 
da uno de los registros comunes (excepto A) se intercambia 
con su correspondiente registro alternativo. 


HALT Cuando llega una instrucción HALT, el control esperará 
en ese punto del programa hasta que ocurra la siguiente in- 
terrupción. Cuando sucede esto, se ejecuta la instrucción 
RST 38 (CALL 0038) y a la vuelta, el control continúa desde 
la primera instrucción después de HALT. Observe que el seña- 
lizador IFFi debe estar puesto a uno para que se ejecute el 
HALT, en caso contrario no ocurrirá nunca una interrupción. 
En ese caso, el HALT esperará literalmente para siempre. No 
hay forma de interrumpirlo, excepto apagando la máquina. 


IM (¡PELIGRO! !! No use esta instrucción bajo ningún motivo. 


IN Tiene dos formas. La primera es IN A, (n) donde n es una 
constante numérica. Es equivalente a LEY A=IN(256xA+n). La 
segunda forma es IN r,(C) donde r es un registro. Equivale a 
LET r=I1N(256*B+C). Los argumentos de In se refieren a un 
dispositivo hardware fuera del chip 280 - un número diferen- 
te para cada dispositivo. En la forma IN A, (n) no se modifi- 
can los señalizadores; sin embargo, en IN r,(C) si resultan 
afectados. 


INC ¡Que no cunda el pánico! volvemos a instrucciones sensi- 
bles que se pueden entender facilmente. INC r incrementa el 
valor del registro r en uno, pero sin alterar el señalizador 
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de acarreo. INC s incrementa el valor de s en umo y tampoco 
altera los señalizadores. 


IND IN con decremento. IND es equivalente a IN (HL), (C) se- 
guido por DEC HL seguido por DEC B. No altera el señalizador 
de acarreo, pero el de cero refleja el nuevo valor de B. 


INOR Es como IND pero se ejecuta la instrucción una y otra 
vez, parándose solamente cuando B a llegado a cero. 


INI Es como IND, pero HL se incrementa en lugar de  decre- 
mentarse. 


INIR Es como INOR, pero HL se incrementa en lugar de  decre- 
mentarse. 


JP Si puede comprender lo que hace GO TO 10, entonces pue- 
de comprender JP 7300. El destino es una dirección, no un 
número de línea, pero el principio es exactamente el mismo. 
JP es el equivalente en código máquina al G0 TO del BASIC. 
Tenemos también saltos condicionales, por ejemplo JP NZ,7300 
significa IF no cero THEN salta a la dirección 7300 (En o- 
tras palabras, si el señalizador de cero no está puesto). 
Hay otra forma de JP que también tiene su analogía con el 
BASIC - con destino variable. Si comprende lo que hace GO TO 
N comprenderá JP (HL). JP (HL) significa GO TO HL. En esta 
forma no puede usar condiciones: por ejemplo, JP NC, (HL) no 
está permitido. Solamente se puede usar uno de los tres pa- 
res de registros como destino variable - Estos son “HL, IX e 
IY. Son instrucciones bastante potentes, a pesar de todo - 
el contenido de HL puede ser el resultado de un cálculo, ge- 
nerado aleatoriamente. 


JR Es la misma instrucción que JP pero ligeramente menos 
potente, aunque un octeto más corta. Solo se pueden usar 
cuatro de las ocho condiciones: Z, NZ, C y NC. Esto signifi- 
ca que es imposible usar (por ejemplo) JR PO. Tampoco está 
permitido decir JR (HL). JR no usa una dirección absoluta - 
la R significa Relativo. La instrucción se escribe como JR e 
(o JR Z,e) donde e es un solo octeto que especifica la lon- 
gitud del salto. JR 0 no hace nada, ya que salta cero octe- 
tos hacia adelante. JR FE es un bucle infinito, ya que el 
control saltará hacia atrás a la misma instrucción JR FE. El 
octeto de desplazamiento comienza a contar desde la instruc- 
ción que sigue a la JR e. Si el octeto está entre 00 y 7F, 
el salto se realiza hacia:adelante, si el octeto está entre 
80 y FF, el salto se realiza hacia atrás. 


LD Es la instrucción más usada en todo el código máquina. 


Todo lo que hace es transferir datos desde una posición a o- 
tra. Tiene muchas formas: la más simple puede ser LD r1,r2Z - 
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que transfiere datos de un registro a otro. Otras formas son 
LD A, (BC), LD A, (DE) y LD A, (HL) - y sus inversas LD (BC),A, 
LD (DE),A y LD (HL),A. Recuerde que los paréntesis signifi- 
can el contenido de uma dirección. Los registros lyR se 
pueden cargar, en conjunción con Á (pero solamente A) se 
pueden cargar los registros y pares de registros con cons- 
tantes numéricas, los pares de registros con el contenido de 
cualquier dirección y a la inversa, cualquier dirección con 
el contenido de un par de registros (tenga en cuenta que los 
pares de registros almacenan dos octetos, no uno, y que se 
transfieren desde la dirección apuntada y la dirección apun- 
tada más uno). También están permitidas LD A, (pa) y LD 
(p,A (donde pq representa una dirección) y el SP se puede 
cargar desde HL, IX, IY o (pa). ((pa) se puede cargar desde 
SP pero HL, IX e IY no). En otras palabras - Hay muchas co- 
sas que puede hacer y muchas que no. No puede decir LD 
HL,DE, por ejemplo (debe usar LD H,D y después LD L,E£ o vi- 
ceversa). Afortunadamente, ya que LD se usa muy frecuente- 
mente, es sumamente fácil familiarizarse con sus muchas for- 
mas. 


LDD LoaD uHnith Dcrement (Carga con decremento). Efectiva- 
mente, equivale a LD (DE), (HL) seguido por DEC HL,DEC DE y 
DEC BC pero en uma sola instrucción. Los señalizadores de a- 
carreo y de cero permanecen sin alterar así como el de sig- 
no, sin embargo el PV se restaura a cero solamente si BC 
llega a cero. Por lo tanto, JP PO saltará solamente si BC es 
cero después de la instrucción. 


LDDR Es como LDD pero la instrucción se ejecuta repetidamen- 
te hasta que BC llega a cero. 


1DI Es como LDD pero DE y HL se incrementan en lugar de de- 
crementarse. BC sigue decrementándose como en la anterior. 


LDIR Es como LDI, pero la instrucción se ejecuta repetida- 
mente hasta que BC llega a cero. 


NEG NEGate (Niega) el acumulador (o registro A). Funciona 
ejecutando la resta de 00 menos Á y cambiando todos los se- 
ñalizadores de acuerdo con el resultado. Así, S refleja el 
signo del resultado, Z se pondrá solamente si A es cero. Pp 
se pondrá solamente si A es 80. CC. se pone siempre excepto 
cuando A es cero. NEG equivale a CPL seguido de INC A (igno- 
rando los señalizadores). 


NOP.— esta extraña pérdida de tiempo (cuyo nombre accidental- 
mente es la abreviatura de NO oPeración) tiene un propósito 
muy simple - perder tiempo. Tiene dos usos principales: ( 
como retraso, o (11) para eliminar código de máquina cuando 
se depura o edita. Supongo que el equivalente más cercano en 
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BASIC es una sentencia REM en blanco. 


OR En la forma OR r es casi la opuesta de AND r. Se cambia 
el valor del registro Á de bit en bit. Si alguno de los bits 
dados es uno, permanece sin alterar, en caso contrario toma 
el valor del bit correspondiente del registro r. Si Á con- , 
tiene 00, entonces (ignorando los señalizadores) OR r es lo 
mismo que LD A,r. OR FF es efectivamente LD A,FF. Todos los 
señalizadores cambian como se espera, y el de acarreo se po- 
ne a cero. 


ORG (ORG es una directriz que no debe tener etiqueta  aso- 
ciada. La palabra ORG debe ir seguida por un número en el 
rango de 2000 a FFFF. Significa que todo el código máquina 
desde ese punto debe ser escrito en la dirección dada. Por 
lo tanto, ORG 7000 seguido por LD A,01 significa que la ins- 
trucción LD A,01 reside en la dirección 7000. A menos que lo 
que se encuentre a continuación sea otro ORG, la siguiente 
instrucción estará situada en 7002 (ya que LD A,01 es una 
instrucción de dos octetos). 


OUT La instrucción OUT tiene dos formas. La primera es OUT 
(N),A - es equivalente a decir OUT (256*A+tn),4. La segunda 
forma es OUT (C),r y equivale a OUT (256x*xB+C),r. OUT manda 
datos fuera del chip Z80 y hacia el *hardhare' que tiene al- 
rededor. No tiene ningún efecto sobre los señalizadores. 


OUTD OUT con Decremento. Equivale a OUT (C), (HL) seguido por 
DEC HL seguido por DEC B. El señalizador de acarreo no se 
altera, pero el de cero refleja el nuevo valor de B. 


OTDR Tiene una ligera diferencia en el deletreo, que no al- 
tera el hecho de que sea una instrucción OUT con decremento 
y repetición Equivale a OUTD repetida una y otra vez hasta 
que B llega a cero. 


OUTI es como OUTD, excepto que HL se incrementa en lugar de 
decrementarse. 


OTIR Es como OTOR, excepto que HL se incrementa en lugar de 
decrementarse. 


POP — Toma dos octetos de datos de lo alto de la pila y los 
carga en un par de registros. Se pueden usar los pares de 
registros BC, DE, HL, IX e IY. Además, se puede usar la ins- 
trucción POP AF, formando un *seudo” par de registros con el 
acumulador y el registro de señalizadores. Específicamente, 
POP recoge el octeto más alto de la pila y lo pone en la 
parte baja del par de registros y el siguiente octeto en la 
parte alta. El apuntador de la pila SP se actualiza automá- 
ticamente. 
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PUSH es la instrucción opuesta a POP. Almacena el contenido 
de cualquier par de registros en lo alto de la pila. El va- 
lor de SP se actualiza para "recordar" que se ha añadido un 
nuevo dato a la pila. Después de una instrucción PUSH, el SP 
siempre apunta a la parte baja del dato de lo alto de la pi- 
la. 


RES Con esta instrucción podemos alterar bits aislados de 
cualquier registro. RES es la abreviatura de REStaurar, que 
significa "cambiar a cero", por lo que RES es una  instruc- 
ción que pone a cero cualquier bit requerido de un registro. 
Por ejemplo, para restaurar el bit 3 del registro D, lo úni- 
co que hay que hacer es RES 3,D. RES no tiene efecto sobre 
ningún señalizador. 


RET RET se usa para retormar desde una subrutina. Funciona 
haciendo POP de una dirección desde la pila y saltando a e- 
lla. Es posible alterar la dirección a la que retorna la 
subrutina alterando el valor de lo alto de la pila. Por e- 
jemplo, POP HL/INC HL/PUSH HL incrementará la dirección de 
retorno en uno. Usted puede, por ejemplo, almacenar un octe- 
to de datos inmediatamente después de la instrucción CALL, 
después hace POP HL/LD A, (HL) /INC HL/PUSH HL almacenará ese 
octeto en A mientras que se asegura que la subrutina retor- 
nará a la dirección siguiente a los datos. Otro truco es ha- 
cer PUSH de una dirección de retorno "artificial” dentro de 
la pila y después hacer JP (o JR) a la subrutina en lugar de 
usar la instrucción CALL, entonces volverá a donde le haya- 
mos mandado. Si se necesita, se puede usar RET con condicio- 
nes. No altera a los señalizadores. 


RL Gira hacia la izquierda. La forma de esta instrucción 
es RL r. Cada bit del registro especificado se mueve una po- 
sición hacia la izquierda. El bit de más a la izquierda, se 
introduce en el señalizador de acarreo, y el de más a la de- 
recha toma el valor previo del señalizador de acarreo. De a- 
hí lo de girar a la izquierda. Por ejemplo, si B contenía 
10010101 y el acarreo contenía cero, después de RL B, dejará 
B conteniendo 006101010 y el acarreo conteniendo uno. RL.  al- 
tera todos los señalizadores. 


RLA Observe que no hay ningún espacio entre la L y la A. 
RLA es la forma más eficaz de hacer RL A. La instrucción es 
un octeto más corta y solo afecta al señalizador de acarreo. 


RLC Girar a la izquierda sin acarreo. RLC r es casi lo mis- 
mo que RL r ya que cada bit del registro en cuestión se mue- 
ve una posición ¡hacia la izquierda. Aquí, sin embargo, el 
bit de más a la izquierda pasa a ser el nuevo valor del  se- 
ñalizador de acarreo y al mismo tiempo el del bit de más a 
la derecha del registro. El valor que tenía el acarreo no 


35 


entra en el proceso. Se alteran todos los señalizadores. 


RLCA En un octeto, en lugar de en dos, RLCA es lo mismo que 
RLC A, pero más rápido. En esta operación solo cambia el se- 
ñalizador de acarreo. 


RLD Ahora el más fantástico. RLD mo se debe confundir con 
RL D, porque es una instrucción completamente diferente, que 
funciona así: el dígito superior de (HL) se desplaza hacía 
la izquierda pasando a ser el dígito inferior de A; éste, a 
su vez, pasa a ser el dígito imferior de (HL), y este último 
toma la posición del dígito superior de (HL). El dígito su- 
perior de A no varía. Esto es, si comenzamos con Á conte- 
niendo 29 y (HL) conteniendo A3, RLD cambiará las cosas de 
forma que A=2A, (HL)=3S5. RLO, por razones que solo conocen 
las mentes de los diseñadores, es la abreviatura de Rotate 
Left Decimal (giro decimal a la izquierda). 


RR Es como RL, excepto que los bits se mueven hacia la de- 
recha en lugar de hacia la izquierda. 


RRA Es como RLA, excepto que los bits mueven hacia la 
derecha en lugar de hacia la izquierda. 


RRC Es como RLC, excepto que los bits se mueven hacia la 
derecha en lugar de hacia la izquierda. 


RRCA Es como RLCA, excepto que los bits se mueven hacia la 
derecha en lugar de hacia la izquierda. 


RRD Es como RLD, excepto que los bits se mueven hacia la 
derecha en lugar de hacia la izquierda. 


RST Es igual que CALL excepto que la instrucción ocupa un 
solo octeto. Es menos potente por dos razones: (1) no puede 
usar condiciones (ej, RST 10 es legal, pero RST N2,10 no lo 
es); y (II) solo puede especificarse una de ocho direccio- 
nes. Estas son 00, 08, 10, 18, 20, 28, 30 y 38. Ya que el 
Amstrad comienza a ejecutar la ROM desde la dirección 0000 
en adelante, RST 00 es lo mismo que apagar y encender la má- 
quina. 


SBC  SBC, igual que ADC, se puede usar en dos formas. La 
primera es SBC A,r, que lo primero que hace es restar r de 
A, y después resta el bit de acarreo. De forma similar  SBC 
HL,s restará de HL, s más el bit de acarreo. SBC A,Á es una 
instrucción muy útil - deja el bit de acarreo sin alterar 
pero pone 00 en A si no hay acarreo, y FF si lo hay. 


SCF Set Carry Flag (Poner el señalizador de acarreo). Los 
demás señalizadores permanecen sin alterar. 
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SET Es la instrucción opuesta a RES. SET 4,H pondrá a uno 
el bit 4 del registro H. Se puede poner cualquier bit * de 
cualquier registro. iS 


SLA Shift Left Arithmetic (Desplazamiento aritmético hacia 
la izquierda). La forma de esta instrucción es SLA r. Es si- 
milar a la instrucción RL r, excepto que el bit de más a la 
derecha es reemplazado siempre por un cero. SLA r multiplica 
el registro r por dos. 


SRA Shift Right Arithmetic (Desplazamiento Áritmético hacia 
la derecha). Usando SRÁ r podemos desplazar hacia la derecha 
cualquier registro. La instrucción es similar a RR r, excep- 
to que el bit de más a la izquierda permanece sin cambiar. 
SRA r divide por dos el contenido del registro r, si el  re- 
gistro contiene un valor en formato de complemento a dos. 


SRL Shift Right Logical (Desplazamiento lógico hacia la de- 
recha), es similar a RR, excepto que aquí, el bit de más a 
la izquierda queda reemplazado por cero. SRL r divide el re- 
gistro por dos, si el registro contiene un valor en formato 
de complemento a dos. 


SUB Se escribe SUB r (algunas veces se escribe también como 
SUB A,r, solamente para confundir). Esta instrucción resta r 
del registro A. Tenga en cuenta que, a diferencia de ADD, no 
hay instrucción correspondiente SUB HL,s. Si quiere restar 
de HL, debe restaurar primero el bit de acarreo (por medio 
de la instrucción AND A) y después usar SBC HL,s. 


XOR XOR cambia el valor del registro A bit a bit. Si un bit 
dado de A es idéntico que el correspondiente bit de r, ese 
bit de A es restaurado a cero, en caso contrario ese bit del 
registro Á se pondrá a uno. XOR altera todos los señalizado- 
res y, en particular, el de acarreo se restaura siempre. Ob- 
serve que XOR A es lo mismo que LD A,00 (ignorando los seña- 
lizadores) y que XOR FF es lo mismo que CPL (ignorando  tam- 
bién los señalizadores). 
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CAPITULO NUEVE 
Operadores Lógicos y 
Manipulación de Bits 


En este capítulo trataremos de un arupo de instrucciones 
que aparecen bajo el nombre genérico de operadores lógicos 
(AND, OR, XOR), y de otras que sirven para la manipulación 
de bits dentro de un octeto (SET, RES, BIT, Giros y Despla- 
zamientos). 


Ántes de seguir adelante debemos dejar claro una cosa, de 
ahora en adelante se hablará de los bits dentro de un octeto 
por el número correspondiente al lugar que ocupan dentro de 
él. Este orden es como sigue: 


Veamos primero los operadores lógicos. Se conocen también 
como Operaciones Booleanas. Cada operación se describe acom- 
pañada por su Tabla de la Verdad. Esta tabla nos muestra el 
resultado de las operaciones lógicas. 


La tabla de la verdad de la instrucción AND es así: 


A B A AND B 
0 0 Va] 
1 0 a 
0 1 Vs] 
1 1 1 


Después de ver esta tabla, hay unas Cuantas cosas que  de- 
ben ser explicadas. AND funciona con dos valores. El primero 
debe estar en el registro Á, mientras que el otro debe ser 
un número de 8 bits, n o cualquier registro simple (incluido 
el A) o el valor que hay en la dirección apuntada por IX, IY 


o HL. Nosotros hemos usado el registro B en el ejemplo ante- 
rior. 


Debido a que A debe ser siempre el primero de los dos va- 
lores, el código de operación de ÁND A,C se escribe como AND 
C, asumiendo que Á viene antes de la C. 


La tabla de la verdad nos muestra el resultado de un AND 
de los bits de los dos registros. Esta tabla se aplica a los 
ocho bits de los registros. Si el bit 0 de A o el bit 0 de B 
son cero, el resultado será un bit 0 a cero. Si ambos bits 
son cero, el resultado será también cero, mientras que si 
ambos bits tienen el valor 1, el resultado del AND será 1. 


El resultado de la operación se almacenará en el registro 
A. El valor del registro B (o del registro que sa haya Uusa- 
do) permanece sin alterar. Es muy importante recordar esto. 
Aquí tenemos una pequeña rutina que nos muestra la instruc- 
ción AND en acción: 


3E 66 LA A,102 (102 en binario es 01100110) 
06 2B LD B, 43 (43 en binario es 00101011) 
AQ AND B 


32 28 A0 LO (41000),A 


La rutina que ejecuta AND A,B (43 AND 102) da el siguiente 
resultado: 


01100110 
0101011 
00100010 


Como resultado del AND, solo se ponen a umo los bits 1 y 
5. El valor del registro Á se introduce en la posición 41000 
de memoria. Para comprobar que este valor es en efecto el 
00100010 (de valor decimal 34), teclee PRINT PEEK(41000). 


La tabla de la verdad de la instrucción OR es: 
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A B A OR B 
8 0 0 

1 0 1 

0 1 1 

1 1 1 


OR funciona con los mismos valores que AND, estos son: 


AND r (donde r es un registro de 8 bits) 
AND nm (donde n es un número de 8 bits) 
AND (HL) (el contenido de la memoria en HL) 
AND (1X+d) (el contenido de la posición de 
AND (IY+d) memoria IX o IY + desplazamiento) 


La tabla de la verdad de la instrucción XOR es: 


A B A XOR B 
0 0 0 
1 0 1 
0 1 1 
1 1 0 


Este operador lógico funciona con los mismos registros y 
modos de direccionamiento que OR y AND. XOR es la abreviatu- 
ra de Exclusive Oring (OR exclusivo) y es un procedimiento 
en el cual se asigna un 1 al bit del resultado si los bits 
correspondientes de los dos operandos son distintos. Si los 
dos bits son 0 o 1, el resultado en el registro A será 0. 


Ya hemos visto los operadores lógicos. Ahora los veremos 
en acción. Son capaces de cambiar facilmente un bit  especí- 
fico, y es lo que usa la próxima rutina. La podemos llamar 
"creador de mayúsculas". La rutina toma una cadena y con-: 
vierte el primer carácter en mayúscula. 


¿Cómo lo hace? Las letras mayúsculas en ASCII comienzan 32 


códigos por debajo de las minúsculas. El programa toma el 
código del primer carácter y, usando el registro Á para con- 
tener el valor 223, y la instrucción AND cancela el sexto 


bit haciéndolo igual a cero, es decir restando 32 del valor 


del código. El código del carácter se devuelve al lugar en 
que estaba. Veámoslo en binario. 


A=11011111 


B=01177777 (no sabemos el valor exacto de B, todo 
lo que sabemos es que va de 97 en 
adelante, pero el bit 6 está puesto 


siempre, que equivale a 32 decimal) 


La operación AND toma los bits que son igual a 1 y da como 
resultado un bit a 1. Cualquiera de los bits que sean dis- 
tintos darán como resultado un bit a cero. Poniendo a cero 
el sexto bit del registro A garantizamos que se resta 32 del 
valor del código, obteniendo así la letra correspondiente 
pero convertida en mayúscula. 


Ensamblador Decimal 
LD L, (1X+0) DD 6E£ 00 
LD H, (1X+1) FDO 6E 01 
INC HL 23 

LD C, (HL) 4E 

LD A.223 3E DF 
AND Cc Al 

LD (HL), A 77 

RET Cc9 


SET y RES 


SET y RES mos permiten alterar el valor de bits determina- 
dos dentro de un registro de 8 bits. El formato de SET y RES 
es: 


SET/RES n,r 


Aquí, r es cualquier registro de 8 bits o una posición de 
memoria de 8 bits, apuntada por los registros HL, IX o IY. N 
es un número entre 0 y 7 e imdica el bit sobre el que se va 
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á a ejecutar la instrucción. (SET hace que el bit se ponga a 1 
mientras que RESET hace que se ponga a cero). 


LD B,3 pone a 1 los bits primero y segundo, y si 
añadimos la instrucción... 

SET 2,8 el tercer bit se pondrá a 1 (valor 4) y el 
valor del registro B será ahora de 7 decimal, 


en binario 00000111. 


El punto más importante a tener en cuenta, no solo con las 
instrucciones SET y RES sino com todas las que acabamos de 
ver, es que los bits de un octeto se numeran del 0 al 7, de 
derecha a izquierda. Por lo tanto, si hablamos del tercer 
bit, este será el bit 2 (como enel ejemplo anterior). 
Recuerde esto, ya que muchos libros y revistas no lo acla- 

! ran, y causa mucha confusión. 


Si tememos estas dos instrucciones: 


LD C,7 
RES 0,C 


El valor del registro C pasará a ser 6, debido a que el 
primer bit (bit 0) se ha puesto a cero, restando uno al va- 
lor del registro C. 


Se puede usar la instrucción BIT para saber el valor de un 
bit. Se debe especificar el número del bit y el registro, de 
la misma forma que con SET y RES. La respuesta no se pone en 
un registro, sino en uno de los señalizadores del registro F 
El señalizador Z o de Cero se pone a 1 si el bit que se está 

' comprobando es un cero. Si el bit es 1, el señalizador de 
Cero se pone a cero (lo contrario a lo que podría parecer en 
un principio). 


Girar y Desplazar 


Vayamos a ver ahora las instrucciones de giro y desplaza- 
miento. Los principios que rigen estas operaciones no son 
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difíciles de entender, pero si no se explican bien pueden 
quedar algo confusas. Hemos requerido la ayuda de unos dia- 
gramas para explicarlo. Veamos el primer diagrama, que  co- 
rresponde a un giro: 


Giro hacia la izquierda (RLC) 


(1) Comenzamos con 


* Indica el bit que sale 


Observe que esto es un RLC giro hacia la izquierda sin a- 
carreo. 


El giro hacia la derecha (RRC) es justo lo opuesto. 


El giro es una operación que involucra un ciclo completo, | 
y es en lo que se diferencia del desplazamiento (SHIFT), co- ! 
mo veremos enseguida. 


Los comandos que se han usado en este giro son RLC y RRC. 
Significan Rotate Left mithout Carry (Rotar hacia la iz- 
quierda sin acarreo) y Rotate Rigth nithout Carry (Rotar ha- 
cia la derecha sin acarreo). En el diagrama se puede ver lo 
que hacen. 


Hay otros dos tipos de giro que se conocen como RL y RR 
(Rotate Left/Right With Carry (girar hacia la izquierda/de- ; 


e 


; recha con acarreo)). Lo que hacen es tomar el bit del extre- 
mo y ponerlo dentro del bit de acarreo y tomar el valor que 
había em el bit de acarreo y ponerlo en el otro extremo del 
registro. El segundo diagrama es así: 


Giro hacia la izquierda con Acarreo (RL) 


Señalizador 
de acarreo 


iS 
1 < < 
Antiguo Valor del Acarreo 
> 


* Indica el bit a que sale 


Estas instrucciones de rotación trabajan con registros de 
8 bits y valores dados por IX, IY y HL. 


Los desplazamientos son similares a los airos, como se ve 
en este tercer diagrama. 


Desplazamiento aritmético hacia la izquierda (SLA) 


(1) Comenzamos con 
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(2) Operación de Desplazamiento 


* 
1 |< 1 1 1 < 


(3) Resultado final 


DBBAD 


* Indica el bit que sale 


Esto es una instrucción Shift Left Arithmetic (SLA) (Des- 
plazamiento aritmético hacia la izquierda. 


Hay tres tipos de instrucciones de desplazamiento: SLA, 
SRA y SRL. SLA significa Shift Left Arithmetic (Desplaza- 
miento aritmético hacia la izquierda) y es la operación que 
se ha desarrollado en el diagrama. SRL significa Shift Right 
Logical (Desplazamiento lógico hacia la derecha) y funciona 
de forma similar a SLA, excepto que se desplaza hacia la de- 
recha, el bit 7 se pone acero y el bit 0 (el de más a la 
derecha) se introduce en el bit de acarreo, mientras que el 
resto de los bits se desplazan un bit hacia abajo. Por lo 
tanto una instrucción SRL” con 11100100 dará como resultado 
01110010. 


La última instrucción de desplazamiento es SRA, que signi- 
fica Shif Right Arithmetic (Desplazamiento aritmético hacia 
la derecha). Es similar a SRL, excepto que desplaza todos 
los bits excepto el 7, que se mantiene con su valor (cuando 
se usa con enteros con signo entre -127 y 127). Todas las 
instrucciones de desplazamiento funcionan con los mismos re- 
gistros, como las instrucciones de rotación. Lo que puede 
Que no sepa usted, aunque resulta lógico, es que SLA real- 
mente multiplica el número por dos y SRL divide el número 
por 2. Por lo tanto, para multiplicar un número por 8, basta 
con hacer SLA tres veces. 
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CAPITULO DIEZ 
Pantalla y Rutimas de la ROM 


La imagen de la pantalla del Amstrad ocupa 16K (16384 —oc- 
tetos) en todos los modos. No se puede hacer nada por  redu- 
cir este espacio. (Puede que usted quiera acceder a la pan- 
talla directamente en alguno de sus programas en código má- 
quina, en lugar de usar las rutinas disponibles en la ROM. 
Esto tiene la ventaja de hacer que los programas se ejecuten 
más rápidamente, en la mayoría de los casos. Por desgracia, 
el asociar una dirección de memoria con una posición de la 
pantalla del Amstrad puede ser una tarea ¡imposible en un 
principio, debido a la forma en que está almacenada en memo- 
ria. También hay que tener en cuenta que un punto de la pan- 
talla no se relaciona necesariamente con un bit concreto 
dentro de un octeto determinado, sino que depende del modo 
de pantalla que esté usando. En MODE 2 hay solamente dos co- 
lores disponibles ), ya que cada bit puede estar en uno de 
dos estados, 1 o 0). 


Vamos a ver cómo se almacena la pantalla, sabiendo que es- 
tá almacenada desde la posición 2£C000 hasta £FFFF. Este será 
el caso normal a menos que un programa en código máquina la 
haya movido a algún otro lugar. Vamos a asumir que el  —des- 
plazamiento es igual a cero. Este mo es el caso si hacemos 
*scroll* de la pantalla. 


Doscientos de Alto 


La pantalla tiene siempre 200 líneas de puntos de altura 
por 80 octetos de ancho. Cuando usted pone el modo de panta- 
lla, le está diciendo al ordenador cómo usar estos 80 octe- 
tos; si quiere un número mayor de puntos a lo ancho de la 
pantalla o si quiere menos puntos, usando los bits extras 
para almacenar rangos más amplios de colores. 


La pantalla se almacena como ocho bloques de Z2K contenien- 
do cada bloque la información de una de las ocho líneas de 
altura de cada carácter. Por lo tanto, los primeros 80 octe- 
tos del bloque uno contienen la línea de puntos superior, 
que es la línea 1 de la primera fila de caracteres, el 


segundo bloque de 80 octetos contiene la línea 1 de la se- 
gunda fila de caracteres, y así sucesivamente. 


Esto significa que la línea 1 de la última fila de carac- 
teres (fila 25) se almacena en el primer bloque desde el oc- 
teto 1921 (24x89+1) hasta el 2000 (625*80). Sin embargo, ca- 
da bloque es de 2K (2048 octetos) de longitud y por lo tanto 
no se usan los últimos 48 octetos de cada bloque. De la mis- 
ma forma, el segundo bloque almacena información de la línea 
2 de cada fila de caracteres y el bloque ocho almacena in- 
formación de la línea 8 de cada fila de caracteres. 


Si está un poco confundido, teclee el siguiente programa 
BASIC que hace POKE de cada octeto desde £C000 a £FFFF con 
25255. Esto significa que también altera los octetos no  usa- 
dos, pero al ordenador no le importa. Observe el orden en el 
que aparecen las líneas en la pantalla. 


10 MODE 1 

20 FOR n=8C000 TO S£FFFF 
30 POKE n,255 

40 NEXT 


Cambie el número del MODE de la línea 10 y ejecute el pro- 
grama de nuevo. Observe que tarda el mismo tiempo en relle- 
nar la pantalla en todos los modos y que aparecen distintos 
colores en cada modo. 


Hay muchas rutinas de la ROM que se pueden usar para tare- 
as como imprimir o inicializar. (Todas ellas están explica- 
das en el libro de la ROM suministrado con el Amstrad). 


Aquí tenemos las direcciones y los nombres de algunas de 
las rutinas más útiles para un principiante en la programa- 
ción en código máquina. Tenga en cuenta que todas las direc- 
ciones vienen dadas en hexadecimal. 


Dirección de CALL Descripción 
BBO0O Restaura la memoria intermedia del teclado. 
BB18 Espera a que se pulse una tecla. 
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BB24 Obtiene el valor de la palanca de juego 
cuyos valores son: 


V0=arriba 1l=abajo 
Z2=izquierda 3=derecha 
4=fuegol S=fuego 2 
6tsin uso 7=restaurar 
BBSA Imprime un carácter en la pantalla. 
BBEA dibuja un punto con DE=coordenada X y 


HL=coordenada Y 


BBFO Dibuja una línea desde la posición actual 
del cursor hasta X, Y (almacenadas en los 
mismos registros que la anterior). 


BCc38 Pone el color del borde con los colores 
almacenados en los registros B y C. 


BC3E Pone los periodos de parpadeo de acuerdo con 
los valores almacenados en el registro HL, 


BC68 Fija la velocidad de grabación del casette. 
BCAA Añade sonido a la cola de sonido. 

BCB6 Para el sonido. 

BCD1 Introduce un RSX en el sistema. 

BD31 Manda un carácter a la puerta Centronics 


(normalmente para la impresora). 


BB39 Pone la repetición de tecla o la quita. 


BB21 Obtiene los estados de Bloqueo Mayúsculas y. 
Bloqueo *Shift!. 


Paquete de Rutinas en 
Código Máquina 


Uno - Leer un Carácter 

Dos - Girar hacia la Izquierda 
Tres - Girar hacia la Derecha 
Cuatro - Letras Gigantes 

Cinco - Impresión Masiva 

Seis - Relleno de la Pantalla 
Siete - LOAD/SAVE Sin Cabecera 
Ocho - Música por Interrupciones 
Nueve - Monitor de Código Máquina 
Diez - Movimiento de Bloques de Pantalla 
Once - Acordes RSX 

Doce - Compresores de Pantalla 


Trece - DEEK y DOKE 
Catorce - Paquete de Escritura de Juegos 


UNO - Leer un Carácter 


Si se preguntara a varios programadores BASIC cuál sería 
el comando que les gustar ía tener en el Amstrad, no nos sor- 
prender Ía que la mayoría de ellos pidieran un comando 
SCREEN$. Para los no iniciados, SCREEN$ y los comandos simi- 
lares le dicen al programador qué carácter hay en una posi- 
ción determinada de la pantalla. Por lo que, si el programa- 
dor quiere escribir una rutina que tenga que comprobar si en 
el centro de la pantalla hay un asterisco (*), puede escri- 
bir una línea como esta: 


IF SCREENS$ (20,12)=42 THEN 


Los dos números que aparecen entre los paréntesis son las 
coordenadas de la posición del cursor y el 42 es el código 
ASCII del asterisco. 


Desgraciadamente, el Amstrad no tiene este comando BASIC y 
esto hace la vida un poco más difícil a los programadores 
que desean escribir juegos con gráficos en movimiento. La 
siguiente rutina resuelve este problema y funciona en  —cual- 
quiera de los tres modos de pantalla del Amstrad. 


Teclee este programa y ejecútelo: 


1 LEER UN CARACTER 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40019 

30 READ a$: POKE n, VAL ("2"+ath) 

40 NEXT 

50 DATA DD,6E,02,DD,66, 04,CD,75,BB,CD 

60 DATA 60,BB,DD,6E, 00,00,66,01,77,C9 


Cuando quiera comprobar una posición específica de memo- 
ria, use el siguiente comando: 


CHARX%=0: CALL 40000, X, Y, SCHARZ 


Aquí, X e Y son las coordenadas de la posición que se 
quiere comprobar (en el mismo formato que el comando BASIC 
LOCATE). CHARX%X es una variable especialmente creada que, una 
vez que se ha ejecutado la CALL, contendrá el código ASCII 
del carácter situado en la posición especificada. Si no se 
define CHAR% de antemano, ocurrirá un c'error Improper 
Argument . 


La variable CHAR debe ser un entero y se puede definir se- 
guida por el signo del porcentaje (%), como hemos hecho  an- 
tes, o precediéndolo por un comando DEF INT C. 


Esta es una de las rutimas más cortas de este libro, y lo 
es gracias a la ROM del Amstrad. La ROM contiene una rutina 
de "lectura de caracteres'" a la que puede accederse desde el 
BASIC. Nuestro programa utiliza esta rutina y pasa los pará- 
metros correctos a, y desde esta rutina de la ROM. 


Este es el listado de la rutina en ensamblador: 


0001 ; LEE UN CARACTER 

0002 ; 
9040 0010 ORG 40090 
BB75 0020 CURSOR DEFL 0BB75H 
BB60 0030 RDCHAR DEFL 08BB60H 
9C40 DDGEOZ 0040 LD E, (1X+2) 
9C43 DD6604 0050 LD H, (1X+4) 
9C46 CD73BB 00680 CALL CURSOR 
39049 CD60BB 20070 CALL RDCHAR 
9C4C DDGEQO 0080 LD L, (1X+0) 
9C4F DD6601 0090 LD H, (1X+1) 
9C52 77 01090 LD (HL), A 
9C33 C9 0110 RET 

0120 END 
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DOS - Girar hacia la Izquierda 


Esta ruina gira una cadena de caracteres 90 grados hacia 
la izquierda, poniéndolos de lado hacia arriba de la panta- 
lla. 


1 GIRAR A LA IZQUIERDA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40091 

30 READ a$: POKE n, VAL ("8"+at) 

40 NEXT 

S0 DATA DD,6E£,00,DD,66,01,7E,B7,C8,23 
60 DATA 5E,23,56,DD,6E£,02,DD,66, 04,47 
70 DATA CS,ES,CD,75,BB,1A,CD,64,9C,13 
80 DATA £1,2D,C1,10,F1,C9,D5S,CD,AS5,BB 
90 DATA EB,CD, AE, BB, 06,07,23,10,FD,FS 
100 DATA CD,06,B9,0E,08,1A,13,D5,E5,16 
110 DATA 80,1£,80,06,08,82,CB,16,2B,B3 
120 DATA CB,3A,CB,2B,CB,F3,10,F3,E1,0D1 
130 DATA 0D,20,E4,CD,09,B9,F1,CD,5A,BB 
140 DATA D1,C9 


El formato de este comando es: 
CALL 40000,X,Y,0AS 


X e Y son las coordenadas donde quiere que comience a es- 
cribirse y A$ contiene la cadena que se va a escribir, y de- 
be ir precedida por el carácter **. Esto mos permite pasar 
una Cadena de caracteres desde el BASIC al código máquina. 
A$ se usa aquí para definir cualquier variable de cadena pe- 
ro no una cadena en sí misma (sin embargo X puede ser tanto 
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O 


una variable numérica como un valor). X$ y pp$ funcionarán, 
pero "HOLA" mo lo hará. En otras palabras, siempre se debe 
especificar uma variable de cadena. 


Las coordenadas X e Y son las mismas que se usan en el co- 
mando LOCATE del BASIC; Y puede ser cualquier valor de líne- 
a, entre 1 y 295, y X puede ser cualquier número de columna 
entre 1 y 20 en modo 0, 1 y 40 en modo 1, y 1 y 80 en modo 
2. 


La rutina toma el primer carácter de la cadena, la pone de 
lado y coloca el carácter dentro del primer UDG (Carácter 
Definido por el Usuario) disponible (en el cargador de BASIC 
lo definimos como el carácter 240). Después escribe el ca- 
rácter en la pantalla. Esto hace que no podamos usar el pri- 
mer UDG si tenemos esta rutina incorporada en el programa. 
Para salvar este inconveniente, si lo necesitamos, se puede 
definir un SYMBOL AFTER más bajo. 


0001 ; GIRAR A LA IZQUIERDA 
00082 ; 
9040 0010 ORG 40000 
BB7S 0020 CURSOR DEFL 0B8B75H 
9C48 DDGEOO 8030 LD L, (1IX+0) 
9C43 DD6601 0040 LD H, (1X+1) 
9C46 7E 0050 LD A, (HL) 
9C47 B7 00608 OR A 
9048 C8 0070 RET 2 
9C49 23 0080 INC — HL 
9044 SE 2099 LD E, (HL) 
9C4B 23 0100 INC  Ht 
9c4c 56 0110 LD D, (HL) 
9C4D DDSEVZ 0120 LD L, (1X+2) 
9C50 DD6604 0130 LD H), (1X+4) 
9C53 47 0140 LD B,A 
9C54 05 0150 NXTCHR PUSH BC 
9035 ES 0160 PUSH HL 
9C56 CD75BB 0170 CALL CURSOR 
9059 14 0180 LD A, (DE) 
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9C5A 
9C5D 
9CS5E 
9c5sF 
9C60 
9c61 
9cC63 
9C64 
BBAS 
BBAE 
8906 
B909 
BBSA 
9c65 
9068 
9c69 
9cec 
9C6E 
9ceF 
9c71 
9c72 
9075 
9077 
9078 
9079 
9C7A 
9C7B 
9C7D 
9C7F 
9081 


CcDO649C 
13 

El 

2D 

c1 
10F1 
C9 

DS 


CDAS5BB 
EB 
CDAEBB 
0607 
23 
10FD 
FS 
CD06B9 
0E08 
14 

13 

DS 

ES 
1680 
1€£80 
0608 
82 


0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 


ROTCHR 
MATRIX 
TABLE 

ROMENA 
ROMDIS 
TXTOUT 


ADD7 


NXTBYT 


NXTBI1T 


CALL 
INC 
POP 
DEC 
POP 
DJNZ 
RET 
PUSH 
DEFL 
DEFL 
DEFt 
DEFL 
DEFL 
CALL 
EX 
CAL 
LD 
INC 
DJINZ 
PUSH 
CALL 
LD 
LA 
INC 
PUSH 
PUSH 
LD 
LD 
LD 
ADD 


ROTCHR 
DE 


NXTCHR 


DE 
OBBASH 
OGBBAEH 
1B90GH 
LB8909H 
VBBSAH 
MATRIX 
DE, HL 
TABLE 
B,7 

HL 
ADD7 
AF 
ROMENA 
c,8 

A, (DE) 
DE 

DE 


gsi 


9088 CB28 0530 SRA E ; 
9C8A CBF3 0540 SET 6,E 
9C8C 10F3 0ss0 DJNZ NXTBIT 
9CSE El 0as60 POP HL 
9C8F Di 0570 POP DE 
9c90 6D 0580 DEC Cc 
9C91 20E4 0590 JR NZ,NXTBYT 2 
9093 CD89B9 0600 CALL ROMDIS 
9c96 F1 2610 POP AF 
9C97 CDSABB 0620 CALL TXTOUT 
SCA D1 0630 POP DE 
9C9B C9 0640 RET 
0650 END 
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TRES -= Girar hacia la Derecha 


Esta rutima viene a ser, más o menos, la opuesta a la an- 
terior. Con ésta, la cadena se imprimirá en la pantalla ha- 
cia abajo, a 90 oygrados de la posición horizontal ya 180 
grados de la posición de la rutina Girar hacia la Izquierda. 


Ye GIRAR A LA DERECHA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=404000 TO 40086 

30 READ a$: POKE n, VAL ("'8£''+a$) 

40 NEXT 

50 DATA DOD,6E,00,DD,66,01,7E,B7,C8,23 
60 DATA 5£,23,56,DD,6E£,02,DD,66, 04,47 
70 DATA C5,ES,CD,75,8BB,1A,CD,64,9C,13 
80 DATA E1,2C,C1,10,F1,C9,DS,CD,AS5,B8B 
90 DATA EB,COD, A£,BB),FS,CD, 06, B9, 0E, 08 
100 DATA 1A,13,DS,E£5,16,80,1E,80,06, 08 
110 DATA 82,CB,1E£,23,B3,CB,3A,CB,2B,CB 
120 DATA F3,10,F3,E1,01,0D,20,E€4,CD,09 
130 DATA B9,F1,C0D,54,BB,D1,C9 


El formato de la llamada es el mismo que en la anterior: 
CALL 40000,X,Y,0AS 


Aquí X e Y son las coordenadas de comienzo de la cadena, y 
AS$ es la cadena que queremos escribir girada hacia abajo en 
la pantalla. 


Las dos rutina tienen mucho en común, como se puede ver en 


el listado del ensamblaje. Afecta a los UDGs de la misma 
forma que la rutina Girar hacia la Izquierda. 
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9040 
BB75 
9040 
9043 
9046 
9047 
9048 
9049 
9C4A 
9C4B 
9c4c 
9C4D 
9C50 
9c5o3 
9054 
9055 
9056 
9099 
ICA 
9C53D 
9CSE 
9Ccor 
9C60 
9Cc61 

9co3 
9C64 
BB45 
BBAE 
B906 
B909 
BBSA 
9C63 
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DD6E00 
DD6601 
TE 

B7 

ce 

23 

SE 

23 

56 
DDSE0Q2 
DD6604 
47 

cs 

ES 
CD735BB 
1A 
cD649C 
13 

El 

2D 

c1 
10F1 
c9 

DS 


CDAS5SBB 


0001 
0002 
0010 
0020 
0030 


2049 


0050 
0060 
0079 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0169 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
es10 
0320 


3 GIRAR A LA DERECHA 


, 


CURSOR 


NXTCHR 


ROTCHR 
MATRIX 
TABLE 

ROMENA 
ROMDIS 
TXTOUT 


ORG 
DEFL 
LD 
LD 
LD 
OR ' 
RET 
INC 
LD 
INC 
LD 
LD 
LD 
LO 
PUSH 
PUSH 
CALL 
LD 
CALL 
INC 
POP 
DEC 
POP 
DJINZ 
RET 
PUSH 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
CALL 


40000 
08B75H 
L, (1X+0) 
H, (1X+1) 
A, (HL) 

A 

Z2 

HL 

E, (HL) 
HL 

D, (HL) 
L, (1X+2) 
H), (1IX+4) 
B,A 

Be 

HL 
CURSOR 
A, (DE) 
ROTCHR 
DE 


NXTCHR 


DE 

OBBASH 
OBBAEH 
1B906H 
0B909H 
GBBSAH 
MATRIX 


9C68 
9009 
9ceoc 
39C6D 
9Cc70 
39072 
9C75 
9C74 
9C7O 
9Cc76 
9C78 
SC7TA 
9070 
3C7D 
9C7F 
9C80 
9Cc81 
9083 
90859 
93087 
9089 
9C8A 
9C8B 
9c8c 
9C8E 
9c91 
9cCaZ 
9095 
9C96 


EB 
CDAEBB 
FS 
CDE6B9 
0£08 
1A 
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2024 
CD09B9 
Fi 
CDSABB 
D1 

co 


NXTBYT 


NXTBIT 


EX 
CcALt 
PUSH 
CALL 
LD 
LA 
INC 
PUSH 
PUSH 


DE), HL 
TABLE 
AF 
ROMENA, 
c,8 

A, (DE) 
DE 

DE 

HL 
D,128 
E, 128 
8,8 
A,D 
CHL) 
HL 

E 

D 

E 

s,E 
NXTB1T 
Hu 

DE 

Si y 
NZ, NXTEYT 
ROMDIS 
AF 
TXTOUT 
DE 
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CUATRO - Letras Gigantes 


Con esta rutina podemos disponer de caracteres de doble 
tamaño. Tiene muchos usos, como poner títulos a los listados 
oa las pantallas. 


El cargador BASIC se teclea como en las rutinas anterio- 
res, se salva en cinta o disco y luego se ejecuta. 


1? LETRAS GIGANTES 

19 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40159 

30 READ a$: POKE n, VAL ("'2£''+2a$) 

40 NEXT 

50 DATA CD,93,BB,F5,DD,6£,04,DD,66,05 
60 DATA 46,23,5E£,23,56,DD,6£,06,DD,66 
70 DATA 08,C5,D5,E5,1A,47,CD,06,B9,78 
80 DATA CD,9D,9C, 47,CD, 09,B9,E1,5D,54 
90 DATA CD,75,BB,DD,7£,02,CD,90,BB,78 
100 DATA CD,S5A,BB,3C,CD,5A,BB,6B,62,2C 
110 DATA CD,75,BB,DD,7E,00,CD,90,BB,78 
120 DATA 3C,3C,CD,5A,BB,3C,CD,5A,BB,6B 
130 DATA 62,24,24,D1,13,C1,10,BD,F1,CD 
140 DATA 90,BB,C9,CD,AS, BB, EB, CD, AE,BB 
150 DATA F5,0E£,02,06,04,C5,1A,0F,0F,0F 
160 DATA 0F,06,04,1F,CB,1E,CB,2E,10,F9 
170 DATA 7£,23,77,06,07,23,10,FD,1A,06 
180 DATA 04,1fF,CB,1E,C8B,2E,10,F9,7E,23 
190 DATA 77,06,07,2B,10,FD,13,C1,10,D3 
200 DATA 06, 08,23,10,FD,0D,20,C9,F1,C9 


Para usar esta rutina, debe teclear el siguiente comando: 


CALL 40000,X,Y,OA$,P1,P2 


Por el momento debe ser capaz de usar los dos o tres pri- 


“meros parámetros por usted mismo. En caso de que no sepa u- 


sarla, o esté algo confuso, le diré como hacerlo. X e Y son 
las coordenadas de la parte superior izquierda de la posi- 
cióm de la pantalla desde la que se van a comenzar a escri- 
bir los caracteres y A$ es la variable de cadena que contie- 
ne el texto que se va a imprimir. Los nombres de variables 
que se Usan en el ejemplo no tienen por que ser las que use 
usted en su programa; se puede usar cualquier variable: numé- 
rica o de cadena y, para las coordenadas, se pueden utilizar 
números enteros directamente. 


Este es también el caso de los dos parámetros finales, a 
los que hemos llamado  P1 y P2. Pueden ser tanto variables 
numéricas como números, y lo que hacen es definir el color 
de los caracteres. P1 controla la mitad superior de cada ca- 
rácter y P2 la inferior. Estas variables pueden contener 
cualquier número, ya que, si el parámetro se sale del rango 
de los valores usuales (que puede ver en la tabla de abajo), 
la rutina los enmascarará para que se acoplen a los valores 
normales del rango de colores. 


Valores Normales Modo Rango 
0 0-15 
1 0-3 
2 0-1 


La rutina vuelve a poner los colores que tenía antes de 
ser llamada. Esta rutina utiliza los cuatro primeros carac- 
teres UDG para crear los caracteres de doble tamaño. Por lo 
tanto, asegúrese de que tiene disponibles por lo menos  cua- 
tro UDGs. (Si mo está usando ningún UDG, deje en su programa 
el comando SYMBOL AFTER 240, que hay en el cargador BASIC). 


0001 ; LETRAS GIGANTES 
0002 ; 
9040 0010 ORG 40000 
B906 0020 ROMENA DEFL 08906H 
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B909 
BBAS 
BBAE 
BB7S 
BB93 
BB90 
BBSOA 
9040 
9043 
9044 
9C47 
9C4A 
9C4B 
9c4c 
9C4D 
9C4E 
9cC4F 
9ca2 
9c5a5 
9C36 
9C37 
9038 
9059 
9CIA 
9C3D 
9CE 
9Cc61 

9262 
9C65 
9C66 
9Cc67 
9C68 
9C6B 
9C6E 


CD93BB 
FS 
DD6E04 
DD6605 
46 
23 
SE 
23 
56 
DD6E06 
DD6608 
c5 
DS 
ES 
1A 
47 
CD06B9 
78 
CD9D9C 
47 
CDO9B9 
El 
50 
54 
CD75BB 
DD7E02 
CD90BB 


0030 
2040 
0050 
0060 
0079 
0080 
2090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 


ROMDIS 
MATRIX 
TABLE 

CURSOR 
GETPEN 
SETPEN 
TXTOUT 


NXTCHR 


DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
CALL 
PUSH 
LD 
LD 
LD 
INC 
LD 
INC 
LD 
LD 
LD 
PUSH 
PUSH 
PUSH 
LD 
LD 
CALL 
Lo 
CALL 
LD 
CALL 
POP 
LO 
LD 
CALL 
LD 
CALL 


0B909H 
QBBASH 
QBB7SH 
0BB75H 
0BB93H 
9BB90H 
OBBSAH 
GETPEN 
AF 

L, (1X+4) 
H, (1X+5) 
B, (HL) 
HL 

E, (HL) 
HL 

D, (HL) 
L, (1X+6) 
H, (1X+8) 
BC 

DE 

HL 

A, (DE) 
B,A 
ROMENA 
AB 
BIGCHR 
B,A 
ROMDIS 
HL 

EJL 

D,H 
CURSOR 
A, (1X+2) 
SETPEN 


9c71 
9C72Z 
9075 
9C76 
9079 
9CTA 
90C7B 
9c7c 
9C7F 
9C82 
9C85 
9C86 
9C87 
9C88 
9C8B 
9c8ac 
9c8F 
9090 
9091 
9092 
9C93 
9094 
9cosS 
9096 
9c98 
9099 
9Cc9c 
3C9D 
SCA 
9CA1 
OCA4 
9CAS 
OQCA7 
S9CA9 
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78 
CDSABB 
3C 
CD5ABB 
6B 

62 

2C 
CD7S5BB 
DD7E00 
CD90BB 
78 

30 

3C 
CDSABB 
3C 
CDSABB 
6B 

62 

24 

24 

D1 

13 

c1 
10BD 
F1 
CD90BB 
c9 
CDASBB 
EB 
CDAEBB 
FS 
002 
0604 
cs 


0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0s00 
0510 
0520 
0530 
0540 
0sse 
0560 
0570 
0580 
oso 
0600 
0610 
0620 
0630 
0640 
veso 
0660 
0670 
0680 


BIGCHR 


LD 
CALL 
INC 
CALL 
LD 
LD 
INC 
CALL 
LD 
CALL 
LD 
INC 
INC 
CALL 
INC 
CALL 
LD 
LD 
INC 
INC 
POP 
INC 
POP 
DJNZ 
POP 
CALL 
RET 
CALL 
EX 
CALL 
PUSH 
LD 


0699 NXTSET LD 
0700 NXTROW PUSH 


"HD 


AB 
TXTOUT 
A 
TXTOUT 
L,E 
H,D 

L 
CURSOR 
A, (1X+0) 
SETPEN 
A,B 

A 

A 
TXTOUT 
A 
TXTOUT 
L,E 


NXTCHR 
AF 
SETPEN 


MATRIX 
DE, HL 
TABLE 
AF 

c,2 
B,4 

ec 


S9CAA 
9CAB 
9CAC 
9CAD 
9CAE 
O9CAF 
9CcB1 
9CB2 
9CB4 
9CB6 
9088 
9CB9 
9CBA 
9CBB 
9CBD 
9CBE 
9Ccco 
9cct 
9CC3 
9cc4 
9Ccc6 
9CCc8 
9CCA 
9CCB 
9ccc 
9CCD 
9CcF 
9CDO 
9COZ 
9CD3 
9CD4 
9CD6 
9CD8 
9CD9 


14 
oF 
oF 
oF 
oF 
0604 
1F 
cB1£ 
CBZE 
10F9 
7E 
23 
77 
0607 
23 
10FD 
1A 
0604 
1F 
cB1E 
CBZE 
10F9 
7E 
23 
77 
9607 
2B 
10FD 
13 
c1 
1003 
0608 
23 
10fF0 


0710 
0720 
0730 
0740 
0750 
0760 
2770 
0780 
0790 
0800 
0810 
2820 
2830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0959 
0960 
0970 
0989 
0990 
1000 
1010 
1020 
1030 
1040 


LFTBYT 


NXT1 


RGTBYT 


NXTZ 


NXT3 


LD 
RRCA 
RRCA 
RRCA 
RRCA 
LD 
RRA 
RR 
SRA 
DJINZ 
LD 
INC 
LD 
LD 
INC 
DJNZ 
LD 
LD 
RRA 
RR 
SRA 
DJINZ 
LD 
INC 
LD 
LD 
DEC 
DJINZ 
INC 
POP 
DJNZ 
LD 
INC 
DJNZ 


A, (DE) 


B,4 


(HL) 
(HL) 
LFTBYT 
A, (HL) 
HT 
(HD ,A 
B,7 

HL 
NXT1 
A, (DE) 
B,4 


(HL) 
(HL) 
RGTBYT 
A, (HL) 
HL 
(HI) ,A 
B,7 

HL 
NXTZ 
DE 

BC 
NXTROW 
B,8 

HL 
NXT3 
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| 
1 
' 
; 
Í 
¡ 
b 
i 


S9CDB 
9CDt 
S9CDE 
9CDF 


88e 


0D 
2009 
F1 
Cc9 


1050 
1060 
1070 
1080 
1090 


DEC 


JR 

POP 
RET 
END 


€ 
NZ,NXTSET 
AF 


CINCO - Impresiónm Masiva 


Impresión Masiva aumenta el tamaño de los caracteres, pero 
a diferente escala que Caracteres Gigantes. Cada carácter es 
16 veces mayor que los normales, cuando se escribe en la 
pantalla. 


Si echa una ojeada a las dos rutinas, Caracteres Gigantes 
e Impresión Masiva, verá muchas diferencias. En efecto, las 
dos rutinas son completamente diferentes. Impresión Masiva 
es mucho más sencilla de escribir que Caracteres Gigantes. 
La rutina Impresión Masiva asigna bloques de dos por dos del 
carácter CHR$(143) (bloques sólidos) por cada punto del ca- 
rácter normal, mientras que la rutina Caracteres Gigantes no 
se puede usar este método de ahorro de tiempo, resultando u- 
na rutina más larga y compleja. 


1 $ IMPRESION MASIVA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=409000 TO 40085 

30 READ a$: POKE n, VAL ('8'' + at) 

40 NEXT 

50 DATA CD,93,8BB,F5,CD,06,B9,DD,7E£,04 
60 DATA CD, AS, BB,EB,DD,6£, 06,DD,66, 08 
70 DATA 06, 08,C5,0E,80,06, 02, C59,ES,CD 
80 DATA 75,B8B,C8B, 40, 28,05,0D,7E,00,18 
90 DATA 03,0DD,7E,02,CD,90,88,£1,06,08 
100 DATA 1A,A1,28,04,3€,8F,18,072,3E,20 
110 DATA CD,5A,BB,CD,5A,BB,CB,39,10,EC 
120 DATA 2C,C1,10,D1,13,C1,10,C8,CD,09 
130 DATA B9,F1,CD,90,BB,C9 


El formato de la CALL es: 


CALL 40000,X, Y, CHAR, P1,P2 


Los parámetros de la CALL son similares a los de la rutina 
anterior, con una excepción. Mientras que en Caracteres  Gi- 
gantes se imprimen cadenas de caracteres, en Impresión Masi- 
va se le pasa el código ASCII de un carácter. Si quiere usar 
más de un carácter, llame a la rutina una vez por cada uno 
que quiere sacar a la pantalla. : 


La rutina funciona en cualquiera de los tres modos de pan- 
talla y usa dos parámetros de color, de la misma forma que 
en Caracteres Gigantes. Si quiere caracteres de un solo co- 
lor, ponga el mismo valor en P1 y P2. 


0001 ; IMPRESION MASIVA 

0002 ; 
9040 0010 ORG 40000 
BB93 0020 GETPEN DEFL 0BBO3H 
BB90 0030 SETPEN DEFL 0BB90H 
BBAS 0040 MATRIX DEFL 0BBASH 
BB75 0050 CURSOR DEFL 0BB7SH 
BBSA 0060 TXTOUT DEFL 0BBSAH 
B906 0070 ROMENA DEFL 0B906H 
B909 0080 ROMDIS DEFL 0B909H 
9C40 CD93BB 0090 CALL GETPEN 
9043 FS 0100 PUSH AF 
9044 CD06B9 0110 CALL ROMENA 
9C47 DD7E04 0120 Lo A, (1X+4) 
9C4A CDASBB 2130 CALL MATRIX 
9C4D EB 0140 EX DE, HL 
9C4E DDGE0G 0150 LD L, (1X+6) 
9051 DD6608 0160 LD H, (1X+8) 
9054 0608 0170 LD B,8 
90356 C5 0180 NXTROWN PUSH BC 
9C57 0E80 0190 LO Cc,128 
9CS9 1602 0200 LD B,2 


90 


9058 
9csc 
9C5D 
9c60 
962 
9C64 
9067 
9069 
9cec 
9C6F 
9C70 
9072 
9073 
9C74 
9C76 
9078 
9C7A 
9c7c 
9c7F 
9C8Z 
9084 
9c86 
9087 
9c88 
9C8A 
9C8B 
9cec 
9C8E 
9091 

9092 
9095 


[e] 

ES 
cD758B 
CB40 
2805 
DD7E00 
1803 
DD7E02 
CD90BB 
El 
2608 
1A 

Al 
2804 
3E8F 
1802 
3E20 
CDSAB8 
CDSABB 
cB39 
10EC 
2c 

c1 
1001 
13 

¡es! 
1008 
CD09B9 
Fi 
CD90BB 
co 


0210 AGAIN 
0220 
0230 
0240 
02530 
0260 
0270 
0280 
0290 
20300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
9390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0310 
0520 


CcoLz 
SETCOL 


NXTCOL 


SPACE 
PRINT 


PUSH 
PUSH 
CALL 
BIT 
JR 
LD 
JR 
LD 
CALL 
POP 
LO 
LD 
AND 
JR 
LD 
JR 
LD 
CALL 
CALL 
SRL 
DINZ 
INC 
POP 
DJNZ 
INC 
POP 
DJNZ 
CALL 
POP 
CALL 
RET 
END 


BC 

Hi 
CURSOR 
0,8 
Z,COL2 
A, (1X+0) 
SETCOL 
A, (1X+2) 
SETPEN 
HL 

8,8 

A, (DE) 
c 

Z, SPACE 
A,143 * 
PRINT 
A, 32 
TXTOUT 
TXTOUT 
c 
NXTCOL 
L 

BC 


(el 
NXTROW 
ROMDIS 
AF 
SETPEN 


SEIS - Relleno de la Pantalla 


Esta simple rutina rellena toda la pantalla del Amstrad 
con el carácter ASCII que usted quiera. 


1 RELLENO DE LA PANTALLA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40021 

30 READ a$: POKE n, VAL ("£'+a4) 

40 NEXT 

50 DATA DD,7E,00,01,E8,03,FS5,C59,CD,5A 

60 DATA BB,C1,0B,78,B1,28,03,F1,18,F2 

70 DATA F1,C9 


El formato de la llamada es bastante sencillo: 
CALL 40000,A 


A es el código ASCII del carácter que quiere imprimir en 
la pantalla y puede ser una variable o un número. Con  CÁLL 
40000,66, llenará la pantalla con Bs. La rutina solo funcio- 
na en MODE 1. 


Aquí tiene una oportunidad de desarrollar un pegueño tra- 
bajo de alteración. Si mira el listado del ensamblaje de es- 
ta rutina, verá que la línea 40 tiene la instrucción LD 
BC,1000. Esta instrucción carga el registro BC con el valor 
1000, y le dice a la rutina la cantidad de espacios de la 
pantalla que se van rellenar con el carácter. En modo 1, es 
de 40x25=1000. En modo 0 hay solo 500 (20x25) y en modo 2 
hay el doble (80x25=2000). Por lo tanto, poniendo BC=500 po- 
drá rellenar la pantalla en modo 0. 


ss 


Si tiene un ensamblador, solo tiene que editar la línea 40 
i y modificarla para que se lea LODO BC,500, pero si no lo tie- 
ne, le resultará un poco más complicado. Los tres pares de 
i números a la izquierda del número de la línea 480 son los có- 
digos de operación equivalentes al LD BC,1000. Debemos alte- 
rar los dos últimos pares para obtener el número que  noso- 
tros queremos. Usaremos el comando PRINT HEX$ (500) para ob- 
tener su valor hexadecimal, F4 01. Volviendo al listado 
BASIC, alteraremos los datos apropiados (los números quinto 
y sexto) con F4 01 y volveremos a ejecutar el programa, des- 
pués de haberlo salvado a cinta o a disco. El programa debe 
funcionar correctamente en modo 0. Una vez echo esto, lo po- 
drá alterar facilmente para trabajar en modo 2 o para impri- 
mir solamente unas cuantas líneas de un carácter determinado 
en un modo fijado. 


0001 ; RELLENO DE LA PANTALLA 
0002 ; 
9040 0010 ORG 40000 
BBSA 0020 PRNT  DEFL OBBSAH 
| 9040 DD7E00 0030 LD A, (IX*0) 
9043 01E803 0040 LD  BC,1000 
9046 FS 0050 LOOP PUSH AF 
9047 C5 0060 PUSH BC 
| 9048 CDSABB 0070 CALL PRNT 
9cC4B C1 0080 POP BC 
| 9cC4C 0B 0090 DEC BC 
9C4D 78 0100 LD A,B 
| 9C4E B1 0110 or <c 
| 9C4F 2803 0120 JR Z,END 
9cs1 F1 0130 POP AF 
i 9052 18F2 0140 JR  L00P 
| 9cC54 F1 0150 END POP AF 
| 9055 C9 0160 RET 
| 0170 END 
| 
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SIETE - LOAD/SAVE sim Cabecera 


Esta rutina está destinada solamente a los ordenadores 
Amstrad que utilizan cinta, como el CPC464. 


Si tiene un 464 y desea cargar un programa largo, habrá 
observado que en cada fichero carga un gran número de blo- 
ques. Cada bloque va precedido por una cabecera que contiene 
información sobre las direcciones de comienzo y la longitud 
de los datos. 


Este programa elimina las cabeceras, haciendo que se car- 
gue y se grabe el programa como un gran bloque, acortando en 
gran medida el tiempo que se necesita para cargarlo y gra- 


barlo. Una vez que se llama a la rutina, no lanza ningún 
mensaje. 
1 SIN CABECERA 


10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40167 

30 READ a$: POKE nm, VAL ("S£''+2a$) 

40 NEXT 

50 DATA FE,03,28,16,21,C0,9C,FE,02,20 
60 DATA S5F,AF,DD,SE, 004,DD,56,01,DD,6E 
70 DATA 02,DD,66,03,18,0F,0D,7E,00,DD 
80 DATA SE, 02,DD,56,03,0DD,6E, 04,DD,66 
90 DATA 05,CD,9E,BC,36, 36, C9,FE,03,28 
100 DATA 16,21,C0,9C,FE,02,20,30,AF,DD 
110 DATA SE, 00,DD,56,01,DD,6E, 02,DD,66 
120 DATA 03,18,0F,DD,7E,008,DD,SE£, 02, DD 
130 DATA 56,03,0D,6E,04,0D,66, 05,CD, A1 
140 DATA 8C,D8,87,28,05,21,D3,9C,18,06 
150 DATA CD,03,B8,21,DF,9C,7E,23,CB,7F 
160 DATA 20,05,CD,S5A,BB,18,FS,CB,BF,CD 
170 DATA 54,86,3E£, 07,CD,54A, 88, C9,ZA,46 


E] 


í 
Í 
i 
i 
l 
1 
i 
Í 


180 DATA 41,4C,54,41,20,50,41,52,41,4D 
190 DATA 45,94,92,4F,A4A,2A,45,92,592,4F 
200 DATA 52,20,4C, 45,43,54,5959,592,41,AA 
210 DATA 2A4,45,93,43,41,50,45,AA 


.— 


El formato de la CALL es: 


Para SAVE: 


CALL 40000,S,L,SYNC 


Para LOAD: 


CALL 40047,S,L,SYNC 


S es la dirección de comienzo y L la longitud del progra- 
ma, ya que mo disponemos de cabeceras para almacenar esta 
información. La variable SYNCH la usa el Amstrad para dis- 
tinmguir la cabecera (carácter 44) de los datos (representa- 
dos por un valor SYNCH de 22). Como no tenemos cabeceras, el 
valor incluido no es importante, excepto que para el LOAD se 
debe usar el mismo valor que se usó para el SAVE 


0001 ; SIN CABECERA 
0002 ; 
9040 2010 ORG 40000 
0020 ; RUTINA DE SAVE 
BCOE 0030 SAVE DEFL 0OBCIEH 
BCA1 0040 LOAD DEFL 0BCA1H 
BBSA 0050 TXTOUT DEFL 0UBBSAH e 
BBO3 0060 KRESET DEFL 0BBO3H 
9040 FEOS 0070 cP 3 
9C42 2816 0080 JR Z,SVSYNC 
9044 21C09C 0090 LD HL, PARAM 
9C47 FEOZ 0100 CcP 2 
9C49 205 e110 JR NZ, ERROR 
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9C0C4B 
9C4C 
9C4F 
9CIZ 
9C595 
9058 
9C5A 
9C5D 
9C60 
9C63 
9C66 
9069 
9cec 
9CGE 


9ceor 
9c71 

9Cc73 
9C76 
9C78 
9CTA 
9C7B 
9CTE 
9c81 

9084 
9087 
9089 
9c8c 
9c8F 
9C9Z2 
9C95 
9098 
9C9B 


AF 
DDS5E00 
DD5601 
DD6GE0OZ 
DD6603 
180F 
DD7E00 
DDOSE0OZ 
DDS5603 
DD6£.04 
DD6605 
CD9EBC 
3036 
co 


FEOS 
2816 
21C09C 
FEOZ 
2030 
AF 
DDSE90 
DD3601 
DD6E0OZ 
DD6603 
180F 
DD7E00 
DD5E02 
DDS603 
DD6E04 
DD6G05 
CDA1BC 
D8 


0120 
0130 
01468 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 


SVSYNC 


SVESET 


LDSYNC 


LDSET 


XOR 
LD 
LD 
LD 
LD 
JR 
LD 
LD 
LE 
LD 
LD 
CALL 
JR 
RET 


A 

E, (IX+0) 
D, (XI+1) 
L, (1X+2) 
H, (XI+3) 
SVESET 
A, (1X+0) 
E, (1X+2) 
D, (1X+3) 
L, (1IX+4) 
H, (1TX+9) 
SAVE 

NC, ESC 


RUTINA DE LOAD 


cP 
JR 
LD 
cP 
JR 
XOR 
LD 
LD 
LD 
LD 
JR 
LD 
LD 
LD 
LD 
LD 
CALL 
RET 


3 
2,LDSYNC 
HL), PARAM 
2 

NZ, ERROR 
A 

E, (1X+0) 
D, (1X+1) 
L, (1X+2) 
H), (1X+3) 
ULDSET 

A, (1X+0) 
E, (C1IX+2) 
D, (1IX+3) 
L, (1X+4) 
H), CIX+5) 
LOAD 

c 


9coac 
9C9D 
aCcoF 
SCAZ 
9CA4 
SCA7 
SOCAA 
SCAB 
S9cCAc 
9CAE 
9CB0 
9CB3 
9CB85 
9cB7 
SCBA 
acBc 
29cBF 
acco 
9ccó 
9CDO 
3CD1 
9CD7 
SCDF 
S9CE0 
39CE7 
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B7 
2805 
z1D39C 
1806 
CD03BB 
Z21DF9C 
7E 

23 
CcB7F 
z005 
CD5ABB 
185 
CBBF 
CDSABB 
3E07 
CDS5ABB 
co 


AA 


AA 


AA 


0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0950 
0560 
0570 
6580 
0590 
0609 
0610 
0620 
0630 
0640 


. 6650 


0660 
0670 
0680 
0690 
0708 
0710 


Esc 


ERROR 


ENDERR 


PARAM 


TAPERR 


ESCAPE 


CALL 


LD 
INC 
BIT 
JR 
CALL 
JR 
RES 
CALL 
LD 
CALL 
RET 
DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFB 
END 


A 

Z,ESC 

HL, TAPERR 
ERROR 
KRESET 
HL, ESCAPE 
A, (HL) 

HL 

ES 

NZ, ENDERR 
TXTOUT 
ERROR 

7,A 
FXTOUT 
A,7 
TXTOUT 


"FALTA" 


** PARAMETRO" 


"4 +80H 
"ERROR" 
" LECTURA" 
"80H 
"ESCAPE" 
1 +80H 


OCHO - Música por 
Interrupciones 


Muchos de los juegos comerciales hacen sonar uma música 
continuamente mientras se juega. Hemos querido producir un 
efecto similar para que lo pueda incluir usted en sus pro- 
pios juegos. El resultado es este programa. 


Este programa es uno de los más largos del libro. El alma- 
cenamiento de los datos de la música es una labor que consu- 
me mucha memoria. Aún así, la rutina completa (incluida la 
música) ocupa solamente 590 octetos, dejándole aún 43K para 
su juego. Es necesario usar la rutina en código máquina jun- 
to con unas pocas instrucciones BASIC: 


10 CALL 40000,0 
20 EVERY 6 GOSUB 13000 


Resto del Juego ... 


13000 CALL 40000: RETURN 


La primera CALL debe ir seguida por un número cualquiera 
(aquí hemos elegido 0; realmente no importa el yalor que se 
use). Esto inicia la rutina y prepara los datos para ejecu- 
tar. La segunda línea utiliza el comando de BASIC EVERY para 
controlar las interrupciones del sistema, por lo tanto le 
sugiero que mire en el manual del Amstrad, capítulos 9.3 y 
10. Cada 6/50 de segundo, el programa saltará a la subrutina 
por medio de la línea 13000 (puede colocar 'esta subrutina en 
el lugar que usted desee). La CALL que tiene la subrutina 
solo ejecuta la siguiente nota de la canción, y después 
vuelve a continuar con el programa normal. 


Se pueden cambiar los 6/50 de segundo por cualquier tiempo 
que se desee, esto es solo un ejemplo. El sonido usa sola- 
mente el camal 1 y el ENV de volumen, la envolvente 15. Esta 
envolvente puede ser redefinida en el BASIC para crear efec- 
tos extraños. Se puede parar la música inhabilitando las in- 
terrupciones. Por suerte tenemos un comando BASIC que lo 


99 


puede hacer, se llama DI. El comando opuesto es El (Habilita 
las interrupciones). 


1 ? MUSICA POR INTERRUPCIONES 
10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=4000€ TO 40590 

30 READ a$: POKE nm, VAL("8'+a$) 

40 NEXT 

50 DATA 87,28,14,21,95,9C,22,95D,9C,3E 
60 DATA 01,32,84,9C,3E,0F,21,85,9C,CD 
70 DATA BC,BC,C9,21,84,9C,35,C0,11,95 
80 DATA 9C,1A,B7,C8,13,77,3C,20,09,1A 
90 DATA 77,21,95,9C,22,9D,9C,C9,1A,6F 
100 DATA 13,1A,67,13,ED,53,9D,9C,22,8F 
110 DATA 9C€,21,8C,9C,CD,AA,BC,C9,00,02 
120 DATA 03,05,01,0fF,FF,04,81,0F,40,00 
130 DATA 00,00,90,00,00 

140 REM DATOS DE LA MUSICA 

150 DATA 02,AA,01,02.92 

160 DATA 01,01,78,01,02,EF,00,01,78,01 
170 DATA 02,EF,00,01,7B,01,06,EF,00,01 
180 DATA EF,00,081,D5,00,01,C9,00,01,BE 
190 DATA 00,01,£F,00,01,D05,00,02,8E,00 
200 DATA 01,FD,00,02,D5,00,06,EF,00,02 
210 DATA AA,01,02,92,01,01,7B,01,02,EF 
220 DATA 00,01,78,01,02,EF,00,01,78,01 
230 DATA 06,EF,00,01,1C,01,01,3F,01,01 
240 DATA 52,01,01,1C,01,01,EF,00,02,BE 
250 DATA 40,01,05,00,01,EF,00,01,1C,01 
260 DATA 06,D5,00,02,AA,01,02,92,01,01 
270 DATA 7B8,01,02,EF,00,01,7B,01,02,EF 
280 DATA 40,01,78,01,06,EF,00,01,EF,00 
290 DATA 01,D5,00,01,C9,00,01,BE,00,01 
300 DATA EF,00,01,05,00,02,BE,00,01,FD 


100 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


420, 


430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00,02,D5,00,06,EF,00,01,EF,00 
01,D05,00,01,BE,00,01,EF,00,01 
D5,00,02,BE,00,01,EF,00,01,D5 
00,01,EF,00,01,BE,00,01,EF,00 
01,05,00,02,BE,00,01,EF,00,Y81 
D5,00,01,EF.00,01,8E,900,01,EF 
00,01,05,00,02,B£,00,01,FD,00 
02,D5,00,06,EF,00,01,7B,01,01 
66,01,01,52,01,02,3F,01,01,1€ 
01,02,3F,01,01,7B8,01,01,66,01 
01,52,01,02,3F,01,01,1C,01,02 
3F,01,01,8E,00,01,EF,00,01,3F 
01,01,1C,01,01,FD,00,01,EF,00 
01,D5,00,01,BE£,00,01,05,00,01 
EF,00,01,05,00,05,3F,01,01,3F 
01,01,7B,01,01,66,01,02,3fF,01 
01,1C,01,02,3F,01,01,78,01,01 
66,01,01,52,01,02,3fF,01,01,1C 
01,02,3F,01,01,3F,01,01,1C,01 
01,0C,01,01,FD,00,02,F0D,90,02 
FD,00,01,1C,01,01,52,01,01,AA 
01,05,3F,01,01,78,01,01,66, 01 
01,52,01,02,3F,01,01,1C,01,02 
3F,01,01,7B,01,01,66,01,01,52 
01,02,3F,01,01,1C,01,02,3F,01 
01,8£,00,01,EF,00,01,3F,01,01 
10C,01,01,FD,090,01,EF,00,01,D5 
00,01,8E£,00,01,D5,90,01,EF,00 
01,05,00,05,EF,00,01,3F,01,01 
52,01,01,3F,01,02,EF,00,01,1C 
01,02,£F,090,01,1C,01,01,EF,00 
01,1C,01,01,3F,01,01,EF,00,01 
BE, 00,02,9F,006,01,BE,00,01,EF 
90,01,3F,01,02,1C,01,027,EF,00 
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650 DATA 01,BE,00,03,D5,00,06,EF,00,FF 
6690 DATA Q1 


Cada nota de la canción consta de tres octetos de datos. 
El primero especifica la longitud de la nota: 


= semicorchea 

= corchea 

= corchea con puntillo 
negra 

= negra con puntillo 


= blanca 


N OO QQ Ny» 
Ú 


= blanca con puntillo 


El tono de la nota puede estar, teóricamente entre 1 y 
4000, pero en la práctica usted usará seguramente un rango 
entre 50 y 1300. Esto significa que ha de usar dos octetos 
para contener el valor. El octeto dos contiene el octeto ba- 
jo de la nota y el octeto tres contiene el alto. Esto co- 
rresponde a la fórmula: 


Tomo = Octeto Dos + 2956 * Octeto Tres 


Los datos de la música comienzan en la línea 150 del car- 
gador de BASIC. Es más sencillo usar el ensamblador para in- 
troducir los datos de la música, pero si mo tiene uno, puede 
obtener los valores hexadecimales de cada octeto, e introdu- 
cirlos en el cargador BASIC. Tenga siempre en cuenta que el 
octeto inferior precede siempre al superior. 


Hay dos valores de longitud que tienen un efecto especial. 
Cero marca el final de los datos y dejará de ejecutar la mú- 
sica aunque siga llamándose a la subrutina. El segundo valor 
especial es 255,n que le dice al programa que repita la can- 
ción después de esperar n, donde n es comparable al valor de 
una de las notas (vea la tabla anterior). 
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0001 ; MUSICA POR INTERRUPCIONES 
0002 ; 
9040 2010 ORG 40000 
BcBe 0020 AMPENV DEFL 0BCBCH 
BCAA 0030 ADDOSND DEFL GBCAAH 
9040 B7 0040 0R. A 
9C41 2814 2050 JR Z,NXTSND 
9043 219590 0060 LD  HL,MUSIC 
9C46 225D9C 0070 LD (DATADR+1), HL 
9C49 3E01 2080 LD  A,1 
904B 328490 0090 LD (TIME),A 
9C4E 3E0F 0100 LD 4,15 
9c5s0 218590 0110 LD  HL,AMPL 
9053 CDBCBC 0120 CALL AMPENV 
9056 C9 0130 RET 
9057 218490 0140 NXTSND LD  HL,TIME 
9CSA 35 0150 DEC (HL) 
9058 Ca 0160 RET  Nz 
9C35C 119590 0170 DATADR LD  DE,MUSIC 
9C5F 14 0180 LD  A,(DE) 
9C60 B7 0190 OR A 
9c61 C8 0200 RET Z 
9cé62 13 0210 INC DE 
9C63 77 0220 LD (MHO,A 
9064 3C 0230 INC A 
9065 2009 0240 JR  NZ,CONT 
9067 1A 0250 LD  A,(DE) 
9C68 77 0260 LD (HI), A 
9069 219590 0270 LD  HL,MUSIC 
9C6C 225D9C 0280 LD (DATADR+1) , HL 
| 9ceFf co 0290 RET 
9C70 1A 0300 CONT LD  A,(DE) 
9C71 6F 0310 LD  L,A 


9072 13 0320 INC” DE 


9C73 
9C74 
9C75 
9C76 
9CTA 
9C7D 
9080 
9083 
9C84 
9085 


9089 


9c8c 


9C8F 


9099 
9C96 
9098 
9CIA 
9C9B 
9C9D 
9CIE 
9coF 
9CA1 

9CA3 
9CA4 
9CAS 
9CA7 
9CAS 
SCAA 
9CAB 
9CAD 
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1A 
67 
13 


EDS33D9C 


228F9C 
218C9C 
CDAABC 
co 

20 

02 

03 05 
ar 

FF QA 
8a1 

ar 00 
a0 

00 90 
02 
AAD1 


Ed 
£ 


3201 
01 
7801 
02 
EFOO 
01 
7801 
02 
EFO0 
01 
7801 
06 
EFOO 
01 


01 


00 


20330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 TIME 
0420 AMPL 


0440 SOUND 


0450 TONE 
00 00 
0460 MUSIC 
0470 
0480 
0490 
0500 
0510 
0320 
0530 
0540 
05509 
0562 
0570 
0580 
0590 
2600 
2610 
0620 


LD 
LD 
INC 
LD 
LD 
LD 
CALL 
RET 
DEFB 
DEFB 


DEFB 


DEFB 


DEFB 


DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFNW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 


A, (DE) 

HA 

DE 
(DATADR+1),DE 
(TONE), HL 

HL, SOUND 
ADDSND 


0 
213,5,1 


15,2559,10 


129,15,0 


0,0,0,0,0,0 


SCAE EFO0 0630 DEFW 239 


9CE4 
9CE6 
9CE7 
9CE9 
SGCEA 
9CEC 
9CED 
9CEF 
9CF o 
9cFZ 
9cF3 
9CFS 
9cr6 
9cF8 
9cF9o 
9CcFB 
9cre 
9cFE 
S9cFF 
9D01 
9D02 
9D04 
9D05 
9D07 
9D08 
9D0A 
9008 
9D0D 
9D0E 
9010 
9D11 
9013 
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1c01 
01 
3F01 
01 
5201 
01 
1C01 
01 
EFOQ 
02 
BE00 
01 
D500 
01 
EF00 
01 
1C01 
26 
D500u 
02 
AA01 
02 
9201 
01 
78601 
02 
EFOO 
01 
7801 
02 
EFOO 
01 


0990 
10900 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


9D14 
9D16 
9D17 
9D19 
9D1A 
9D1C 
9D1D 
9D1F 
9D20 
9D22 
9D23 
9D25 
9026 
9D28 
9D29 
9D2B 
9D2C 
9DZE 
9D2F 
9D31 
9D32 
9D34 
9D35 
9D37 
9038 
SD3A 
9D38B 
29030 
OD3E 
39049 
9D41 
9D43 
9D44 


7801 
06 
EF OO 
vi 
EFG 
01 
DS00 
01 
c900 
01 
BE00 
01 
EF 00 
01 
DS00 
02 
BE00O 
01 
FDOO 
02 
DS00 
206 
EFOO 
01 
EFOO 
01 
DS00 
01 
BE00 
01 
EFOO 
01 
DS500 


1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
16090 
1610 
1620 
1630 


9D49 
9D4A 
9D4C 
9D4D 
9D4F 
9050 
9D32 
9D93 
9D595 
9D56 
9D58 
9D59 
9D5B 
9D5C 
SDE 
S9DSF 
39D61 

9D62 
9D064 
9D635 
9D67 
9068 
9DGA 
9D6B 
9D6D 
9D6E 
3D70 
9D71 

9D73 
39D74 
9D76 
39D77 
9D79 
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01 
EFOO 
01 
D500 
01 
EFOO 
01 
BED0 
01 
EFOQ 
01 
DS00 
02 
BE00 
01 
EFQO 
01 
D500 
01 
EFOO 
01 
BE0Q 
01 
EF0O 
01 
D500 
02 
BE00 
01 
FDe0O 
02 
D500 
06 


1660 
10670 
1680 
1699 
1700 
17108 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1809 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFI 
DEFB 
DEFI 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFI 
DEFB 
DEF 
DEFB 
DEFI 
DEFB 
DEFI 
DEFB 
DEF 
DEFB 
DEF 
DEFB 


9D7A 
9D7C 
9D7D 
9D7F 
9080 
9D82 
9D83 
9085 
2D86 
9088 
9089 
9088 
9D8c 
9DSE 
9D8F 
9D91 
9D92 
9D94 
9095 
9D97 
9098 
DIA 
9098 
9D9D 
DIE 
SDAD 
ODA1 
9DA3 
SDAL4 
9DAS 
-9DA7 
IDAS 
ODAA 
SDAC 


EFOO 
01 
7801 
01 
6601 
01 
5201 
0Z 
3F01 
01 
1C01 
02 
3F01 
01 
7801 
01 
6601 
01 
5201 
02 
3-01 
01 
1C01 
02 
3F0O1 
01 
BE00 
01 
EF00 
01 
3F01 
01 
1C01 
01 


1999 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
z160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 


DEFW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFUW 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFN 
DEFB 
DEF 
DEFB 
DEFNW 
DEFB 
DEF 
DEFB 
DEFI 
DEFB 
DEFNW 
DEFB 
DEFW 
DEFB 
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9DEO 
9DE2 
9DE3 
9DES 
9DEG 
9DE8 
9DE9 
9DEB 
9DEC 
DEE 
DEF 
9DF1 
39DF2 
9DF 4 
9DFS 
9DF7 
90F8 
S9DFA 
9DFB 
S9DFD 
SDFE 


9500 


9E01 
9E073 
9E04 
9E06 
9E07 
9E09 
SEDA 
9E0C 
S9E0D 
SE0F 
9E10 
9E12 


3F01 
01 
1c01 
02 
3F01 
01 
3F01 
01 
1C01 
01 
0co1 
01 
FDOGO 
02 
FDO 
02 
FDOO 
01 
1C01 
01 
5201 
01 
AAQ1 
a5 
3F01 
01 
7801 
ql 
60601 
91 
5201 
02 
3F01 
01 


2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
28309 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
29730 
2940 
2350 
2360 
2970 
2989 
2990 
3000 


1201 
OZ 
3F01 
01 
7801 
01 
6601 
01 
5201 
02 
3F01 
Q1 
1201 
02 
3F01 
01 
BEBO 
Q1 
EFOQ 
01 
3F01 
el 
1Cc01 
01 
FDOQ 
el 
EFOR 
01 
DS00 
01 
BE00 
01 
D500e 
Q1 


DEF 
DEFB 


DEFW 2 


DEFB 
DEFW 
DEFB 
DEFI 
DEFB 


DEFW 3 


DEF8B 
DEF 
DEFB 
DEF 


DEFB <= 


DEF 


DEFB 1 


DEF 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFNW 
DEFB 
DEF LU 
DEFB 
DEFI 
DEFB 
DEFLI 
DEFB 
DEF 
DEFB 
DEFI 
DEFB 


9E46 
9E48 
9E49 
9E4B 
DE4C 
DE4E 
DE4F 
3ES1 

9ESZ 
9ES4 
9ESS5 
9E57 
9E58 
ESA 
9ESB 
9ESD 
ESE 
9E60 
9E61 

9€63 
9E64 
9E66 
9E67 
9E69 
SEGA 
9E6C 
9E6D 
DESF 
9E70 
9E72 
9€73 
9E75 
9E76 
9E78 


EFOO 
01 
D500 
05 
EF0O 
01 
301 
01 
5201 
01 
3F01 
02 
EFOO 
01 
1C01 
02 
EF00 
01 
1C01 
01 
EFO0 
01 
1C01 
01 
3F01 
01 
EFOO 
01 
BE00 
02 
9F00 
01 
BE00 
01 


3350 
3360 
3370 
3380 
3390 
3400 
3419 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3910 
3320 
3530 
3540 
3350 
3500 
3370 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3060 
3670 
3680 


9E79 
978 
9E7C 
9E7E 
S9E7F 
9E81 
9E82 
9E84 
9E85 
9E87 
9£88 
9EBA 
9€88 
9E80D 


3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 


3830 


DEFUW 
DEFB 
DEFW 
DEFB 
DEF 
DEFB 
DEFUW 
DEFB 
DEF 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 


END 


239 
255,1 


eS 


NUEVE - Monitar de Código 


Máquina 


Este programa le permitirá examinar el contenido de la me- 
moria de su Ámstrad. Puede ver en la pantalla el contenido 
de su RAM y ROM. Además, puede alterar el contenido de las 
posiciones de memoria, haciendo que el programa sea algo más 
que un simple "analizador de memoria". 


Los comandos disponibles son: 


213! = Avance rápido por la memoria. 

E? = Avance lento por la memoria. 

?D? = Retroceso lento por la memoria. 

¿XxX? = Retroceso rápido por la memoria. 

?Q? = Salir. (No puede usar ESC para cortar el 
programa) 


*ENTER* para introducir un número en una dirección. 


Hay varias cosas que debe tener en cuenta cuando pulse la 
tecla ENTER. La dirección que se puede alterar cuando se 
pulsa la tecla ENTER es la que está en la línea que aparece 
en lo alto de la pantalla. Segundo, tenga mucho cuidado 
cuando intente alterar algún valor, particularmente entre 
40009 y 40276, ya que es donde está almacenado el programa 
monitor. 


10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 CLS 

30 monitor=40000: scroll=40034 

40 LOCATE 11,2:PRINT "Monitor de Código Máquina" 
50 If PEEK (40000) =8£0DD AND PEEK (40001) =86€ GOTO 90 
60 FOR n=40000 TO 408276 

70 READ a$: POKE n, VAL ("8£''+ as) 
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80 NEXT 
390 LOCATE 11,6: INPUT "Dirección de comienzo” ¡st 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


LOCATE 11,8: PRINT "Para examinar direcciones" 
LOCATE 11,9:PRINT "80000-84000 y £C000-EFFFF" 
LOCATE 11,10: PRINT "(A) ROM o (B) RAM?" 
rom%=0 

IF INKEY(69)=0 THEN rom%=1:G0TO 160 

IF INKEY(54)<>0 GOTO 140 
start%= INT (UNT (st) ) -25 

POKE scroll,25 

CALL monitor,Brom%, star t% 

IF romí=99 THEN CLS: END 

LOCATE 12,1:PRINT "> <":LOCATE 13,1 

GOSUB 260: h$=at 

GOSUB 260: 14$=a$ 

IF  INKEY (57) xXINKEY (58) x*INKEY (61) =0 GOTO 230 
POKE start, VAL ("82 '"+h$+1$) 

POKEÉ scroll,1:G0TO 180 

a$=UPPER$S (INKEY$): IF a$<'"0" OR ag>"F" OR a$>'9" 
AND a$<'"'A'' GOTO 260 

PRINT a$; 

RETURN 

DATA DD,6£,00,DD,66,01,5E,23,56,DD 

DATA 6E,02,DD,66,03,7E,B7,28,08,CD 

DATA 00,B9,CD,06,B9,18,06,CD,03,B9 

DATA CD,09,B9,06,19,C5,3E,19,CD,D1 

DATA 92,C01,10,F7,3E,39,CD,1E,BB,28 

DATA 07,3E,19,CD,D1,9€,18,F2,3E,3F 

DATA CD,1E,8B,28,07,3E,01,CD,D1,9C 

DATA 18,E4,3E£,34A,CD,1E£,BB,28,07,3E 

DATA 19,CD,C7,9C,18,D6,3£,3D,CD,1£ 

DATA BB, 28,07,3E,01,C0D,C7,9C,18,C8 

DATA 3£,12,CD,1E,BB,20,0F,3E,43,CD 

DATA 1E,B8,28,BA,DD,6E£,02,DD,66,03 
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410 DATA 36,63,DD,6E£,00,DD,66,01,73,23 
420 DATA 72,CD,03,BB,C9,F5,01,00,50,0B 
430 DATA 78,B1,20,FB,F1,F9,D5,47,CB,38 
440 DATA CB,38,C8B,38,CB,38,AF,CD,4D,BC 
450 DATA 23£,1F,CD,5A,BB,3E,05,CD,5A,BB 
460 DATA D1,F1,F5,CD,54,8B,FE,01,28,07 
470 DATA 13,21,18,00,19,18,03,1B,62,6B 
480 DATA 44,CD,34,9D,45,CD,34,9D,3E,1F 
490 DATA CD,5A,BB,3E£,0D,CD,5A,BB,F1,FS 
500 DATA CD,S5A,BB, 46,CD,34,9D,C1,7E,FE 
510 DATA 21,F8,FE,7F,F0,3E,1F,CD,5A,BB 
520 DATA 3£,13,CD,S5A,BB,78,CD,5A,BB,7E£ 
530 DATA CD,5A,BB,C9,78,E6,0F,4F,CB,38 
540 DATA C8,38,CB,38,CB,38,78,06,02,FEÉ 
550 DATA 0A4,F2,4C,9D,C6,30,18,02,C6,37 
560 DATA CD,5A,BB,79,10,EF,C9 


Observe que los 64 primeros octetos de la ROM son idénti- 
cos a los 64 primeros octetos de la RAM. Esto se debe a que 
estos primeros octetos constituyen el bloque de salto a ru- 
tinas y se copia desde la ROM a la RAM cuando se enciende la 
máquina. 


Cuando ejecute el programa, éste le pedirá la dirección 


desde la que quiere comenzar. Introdúzcala en decimal o en 
hexadecimal. Si usa hex, la dirección debe ir precedida por 
el carácter *'£'*. Como puede ver en el listado que proporcia- 


na el programa en acción, todas las direcciones y valores se 
muestran en hexadecimal. 


Monitor de Código Máquina 


Dirección de comienzo? 8742 


a 


Para examinar direcciones 

£0000-84000 y £C000-E£FFFF 

(A) ROM o (B) RAM? 

0742 53 S 

0743 63 c 

0744 €8 h 

0745 6ÉE n 

0746 65 e 

0747 69 i 

0748 64 d 

0749 65 e 

074A 72 r 

0748 00 

0742 DA | 

074D 20 

074E 41 

074F 77 W 

0750 61 a 

0731 00 

9732 DA 

0753 20 

0754 53 Ss ! 

07535 6F o 

07536 ec 1 

0757 61 a 

0758 76 v 

07539 6F o 

075A 78 
¡ 
| 
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9040 
B900 
B903 
8906 
B909 
BB1E 
BB03 
BC4D 
BBSA 
9040 
9043 
9C46 
9047 
9048 
9049 
9c4c 
9C4F 
9050 
9Cc51 

9Cao3 
9C56 
9CS9 
9C3B 
9CSE 
9C61 

9C63 
9C64 
9C66 
9069 
IC6A 
9c6c 


DO6E00 
DD06641 
SE 

23 

56 
DD6E02 
DD6603 
7E 

B7 
2808 
CcD00B9 
CD06B9 
1806 
CDO3B9 
CDOA9BO 
0619 
Cs 
3E19 
cpD19Sc 
C1 
19F7 
3E39 


0001 
0002 
0014 
2029 
0030 
0040 
20059 
0060 
2074 
0080 
00908 
2100 
0119 
0120 
0130 
0140 
0150 
0160 
01790 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 


, 


, 


UROMON 
UROMOF 
LROMON 
LROMOF 
TSTKEY 
KRESET 
SCROLL 
TXTOUT 


ROMOFF 


ROMSET 
SETUP 


MAIN 


MONITOR C/M 


ORG 
DEFL 
DEFt 
DEF 
DEFL 
DEFL 
DEFL 
DEFL 
DEFL 
(Mo) 
LD 
LD 
INC 
LD 
LD 
LD 
LD 
OR 
JR 
CALL 
CALL 
JR 
CALL 
CALL 


40800 
0B8900H 
0B8903H 
0B906H 
0B909H 
0BB1EH 
0BBO3H 
208C4DH 
VDBBSAH 
L, CIX+0) 
H), (1X+ 1) 
E, (HL) 
Hi 

D, (HL) 
L, (1IX+2) 
H), (IX+3) 
A, (HL) 

A 
Z,ROMOFF 
UROMON 
LROMON 
ROMSET 
UROMOF 
LROMOF 
B,25 

BC 

A, 23 
NOWAIT 
BC 
SETUP 
A,397 
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9C6E 
9C71 

9073 
9c75 
9078 
9CTA 
9C7C 
9C7F 
9c81 

9083 
9086 
9C88 
9CBA 
9C8D 
9ceF 
9c91 

9C94 
9cC96 
9c98 
9C9B 
9C9D 
9coF 
9CAZ 
SCAS 
9CA6 
9CA9 
S9CAB 
SCAD 
9CBO 
9CB2 
-9CBS 
9CB8 
OCBA 
9CBD 
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CD1EBB 
2807 
3E19 
cpD19C 
18F2 
3E3F 
CD1EBB 
2807 
3E01 
CDD19C 
18E4 
3E3A 
CD1EBB 
2807 
3E19 
CDC79C 
18D6 
3E3D 
CD1EBB 
2807 
3E01 
CoCc79c 
1808 
3E12 
CD1EBB 
200F 
343 
CD1EBB 
Z8BA 
DD6E02 
DD6603 
3663 
DD6E00 
0D6601 


0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
04609 
0470 
0480 
04908 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 


NOT3 


NOTX 


NOTE 


NOTD 


ENTER 


CALL 
JR 
Lo 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
CcALt 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LO 
CALL 
JR 
LD 
CALL 
JR 
LD 
CALL 
JR 
LD 
LD 
LD 
LD 
LD 


TSTKEY 
Z2,NOT3 
A,25 
NOWAIT 
MAIN 
A,63 
TSTKEY 


“Z,NOTX 


A, 1 
NONATT 
MAIN 

A, 538 
TSTKEY 
Z,NOTE 
A, 25 
PAUSE 
MAIN 
A,61 
TSTKEY 
Z,NOTD 
A,1 
PAUSE 
MAIN 
A,18 
TSTKEY 
NZ, ENTER 
A,607 
TSTKEY 
Z, MAIN 
L), (1X+2) 
H), (IX+3) 
(HL), 99 
L, CIX+0) 
H), (TX+1) 


accoa 
9cc1 
101072 
9cC3 
9cc6 
9cc7 
acces 
9CCB 
9cce 
9CCD 
9CCE 
9CcD0 
9CD1 
9CD2 
9CD3 
9CD4 
9CcD6 
9CD8 
9CDA 
9coc 
9CDD 
3SCEA 
9CEZ 
9CES 
9CE7 
OCEA 
9CEB 
9cEc 
9CED 
9cra 
9cF2 
9CF4 
9cFS 
acre 


73 

23 

72 
CD03BB 
c9 

FS 
010050 
0B 

78 

B1 
20FB 
F1 

FS 

DS 

47 
CcB38 
CB38 
cB38 
CcB38 
AF 
CD4DBC 
3E1F 
CD5ABB 
s3E0S 
COSABB 
D1 

F1 

FS 
CDS5ABB 
FE0O1 
2807 
13 
211800 
19 


0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
2874 
0880 
0890 
0900 
0910 
0920 
0930 
20940 
0950 
0969 
0970 
0980 
0990 


PAUSE 


DELAY 


NOWA IT 


LD 
INC 
Lo 
CALL 
RET 
PUSH 
LD 
DEC 
LD 
OR 
JR 
POP 
PUSH 
PUSH 
LD 
SRL 
SRL 
SRL 
SRL 
XOR 
CALt 
LD 
CALL 
LD 
CALL 
POP 
POP 
PUSH 
CALL 
<P 
JR 
INC 
LD 
ADD 


(HL), E 
HL 

(HL) ,D 
KRESET 


AF 
BC,5000H 
Be 

A,B 

e 

NZ, DELAY 
AF 


SCROLL 
A,31 
TXTOUT 
AS 
TXTOUT 
DE 

AF 

AF 
TXTOUT 


1 

Z, DON 
DE 

HL, 24 
HL, DE 


9cFo 
9cFB 
9cFe 
9cFD 
9CFE 
ScFF 
9D02 
9D03 
9D06 
9008 
9D0B 
9D0D 
9D10 
9D11 
9012 
9D15 
9D16 
3D19 
9D1A 
9D1B 
9D1D 
9D1E 
9D20 
2D21 
9023 
29D26 
9028 
9D28B 
9D2ZC€ 
S9DZF 
39D30 
9D33 
39D34 
39D35 
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1803 
18 

62 

6B 

44 
CD349D 
45 
CD349D 
3E1F 
CD5ABB 
3E0D 
CD5ABB 
Fi 

FS 
CDSABB 
46 
CD349D 
c1 

7E 
FEZ21 
Fe 
FE7F 
FO 
3E1F 
CD5ABB 
3E£13 
CDSABB 
78 
CDSABB 
7E 
CDSABB 
c9 

78 
EG60F 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


DOLN 


PRINT 


HEXOUT 


JR 
DEC 
LD 
LD 
LD 
CALL 
LD 
CAL: 
LD 
CALt 
LA 
CALt 
POP 
PUSH 
CALL 
LD 
CALL 
POP 
LD 
cP 
RET 
cP 
RET 
LD 
CALL 
LO 
CALL 
LD 
CALL 
Lo 
CALL 
RET 
LD 
AND 


PRINT 
DE 
H,D 
L,E 
B,H 
HEXOUT 


-B,L 


HEXOUT 
A,31 
TXTOUT 
A,13 
TXTOUT 
AF 

AF 
TXTOUT 
B, (HL) 
HEXOUT 
BC 

A, (HL) 
33 


A,31 
TXTOUT 
A,19 
TXTOUT 
A,B 
TXTOUT 
A, (HL) 
TXTOUT 


AB 
15 


9D37 
9038 
SD3A 
9D3C 
9D3E 
9D40 
9D41 
39D43 
9D45 
9048 
9D4A 
9D4C 
9D4E 
9D51 
9D92 
9D54 


4F 
CB38 
C838 
CB38 
CB38 
78 
0602 
FEGA 
F24C9D 
c630 
1802 
c637 
COSABB 
79 
10EF 
co 


1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1429 
1430 
1449 
1450 
1460 
1470 
1480 
1490 
1500 


DIGIT 


LETTER 
PRNTCH 


LD 
SRL 
srt 
SRL 
SRL 
LD 
LD 
e 
JP 
ADD 
JR 
ADD 
CALt 
LD 
DJNZ 
RET 
END 


P, LETTER 
A, 48 
PRNTCH 
A, 35 
TXTOUT 
A,C 
DIGIT 
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DIEZ - Movimiento de Bloques 


Estamos muy orgullosos de estas rutinas. Las encontrará 
muy Útiles para programas que requieren gráficos. 


Movimiento de un bloque de pantalla hacia arriba 


Todos los libros de código máquina incluyen algunas ruti- 


nas para mover la pantalla (*scroll'). Suelen estar restrin- 
9idas a una línea, una columma o toda la pantalla. Nuestra 
rutina para hacer Movimiento de un Bloque hacia Arriba Uy 


las otras tres rutinas que cubren el resto de las direccia- 
nes, abajo, hacia la izquierda y hacia la derecha) le permi- 
tirán especificar un bloque, o ventana en la pantalla. y ha- 
cer que se mueva suavemente. 


, 


Un movimiento suave es un movimiento punto a punto. Aún en 
código máquina, esto resulta lento, pero será lo suficiente- 
mente rápido para la mayor ía de las exigencias. Su gran va- 
lor reside en lo suave del movimiento, en comparación con el 
que se hace carácter a carácter. 


La definición del bloque se hace de modo similar al coman- 
do WINDOW. Su formato es: 


CALL 40000,L,R,U,D 


En este comando, L es la coordenada de más a la ¡izquierda 
del bloque, R es la coordenada de más a la derecha, U es la 
superior y D la coordenada inferior. Por lo tanto, el bloque 
solo puede ser cuadrado o rectangular. Obviamente, L debe 
ser igual o menor que R; y U debe ser igual o menor que  D. 
Tenga en cuenta que L, R, U y D deben ser variables numéri- 
cas o números. 


1 ? SCROLL DE UN BLOQUE HACIA ARRIBA 
10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
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20 FOR n=40000 TO 40145 
30 READ a$: POKE rn, VAL("8'+28) 
40 NEXT 


50 DATA DD,6E£,92,0D,66, 06, 2D,25,DD,7E 

60 DATA 04,94,4F,0D,7E,00,95,97,CD,1A 

70 DATA BC,3E,00,81,10,FD,5F,18,38,D5 

80 DATA 43,50,7€,C6,38,57,70,06,50,€F 

90 DATA 30,04,24,70,E6,07,20,04,7C,Dé 

100 DATA 08,67,E5,7E,12,1C,20,0A4,14,7A 
110 DATA E6,07,20,04,7A,D6,08,57,2C0,20 
120 DATA Q0A4,24,7C,E6,07,20,04,7C,D6,08 
130 DATA 67,10,£2,E1,D1,DS,E5,4B,E9,46 
140 DATA 07,50,54,7C,C6,08,67,7E,12,10 
150 DATA F6,E1,2C,20,0A,24,7C,E6,07,20 
160 DATA 04,7C,D6,08,67,0D,20,E2,E1,D1 
170 DATA 195,20,A42,7C,C6,3€,€67,43,36,00 
180 DATA 2C,20,0A4,24,7C,E6,07,20,04,7C 
190 DATA D6,08,67,10,EF,C9 


Cuando ejecute el comando CALi, el bloque especificado se 
moverá hacia arriba un punto, desaparecerá la línea superior 
y se rellenará com blancos la inferior. En la mayoría de los 
casos no será suficiente mover el bloque un solo punto. Para 
moverlo un número determimado de veces, use un bucle 
FOR/NEXT. 


Hay unas pocas limitaciones en el uso de este programa. 
Funciona en cualquier modo de pantalla, y se pueden mover 
varios bloque a la vez. Por supuesto, cuanto más bloques 
tenga en la pantalla, así como cuanto mayor sea el tamaño de 
estos, más lento será el movimiento. Por lo tanto, es mejor 
restringir el tamaño y el número de bloques a los estricta- 
mente necesarios. Para consequir un efecto más interesante, 
intente mover dos bloques que se solapen uno a otro. 


0010 ;SCROLL BLOQUE ARRIBA 
0020 ; 
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9040 
BC1A 
9040 
9043 
9C46 
9047 
9048 
90C4B 
904C 
9C4D 
9050 
9C51 
9C3o2 
9055 
9c57 
9C38 
9C5A 
9C5B 
9C53D 
9C5E 
9coF 
9C60 
9C61 
9C63 
9C64 
9cC65 
9C67 
9068 
9COA 
9C6B 
9cOoc 
9COE 
9C70 
9Cc71 


DD6E02 
DD66u6 
2D 

25 
DO7E04 
94 

4F 
DD7E00 
95 

57 
CD1ABE 
3E00 
81 
10FD 
SF 
1838 
DS 

43 

5D 

70 
C638 
57 

70 
ceso 
6F 
3004 
24 

7C 
E607 
2004 
70 
Does 


0030 
0040 
0059 
2060 
0070 
0089 
0090 


0100 


0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 


CHRPOS 


CHRWID 


NXTROW 


ORG 
DEFL 


DEC 


DEC 


suB 


suB 


CALL 


ADD 


DJNZ 


PUSH 


40000 
98C1 AH 
L, (1X+2) 
H, (1X+6) 
t 

H 

A, (1X+4) 
H 

CA 

A, (IX+0) 
L 

D,A 
CHRPOS 
AQ 

A,C 
CHRWID 
E,A 
START 
DE 

B,E 

EJ,L 

AH 
A,56 
D,A 

A,L 
A,80 
L,A 

NC, NEUL IN 
H 

A,H 

7 

NZ, NEUL IN 
AH 

8 
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9c73 
9C74 
9075 
9C76 
9077 
9078 
9C7A 
9C7B 
39c7c 
9Cc7E 
9C80 
9C81 

9C83 
9084 

9085 
9C87 
9088 
9C89 
9C8B 
9C8D 
9CSE 
9090 
9091 

9c93 
9C94 
9C95 
9096 
3097 
9098 
9099 
9C9B 
9c9ac 
9C9D 
9CIE 
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2004 


EG07 


2004 


D608 


200A 


E607 


2004 


D608 


10E2 


0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
680 
0690 
0700 


NELNL IN 
LASTLN 


DEOK 


HLOK 


START 


NXTCHR 


NXTL IN 


HA 

HL 

A, CHL) 
(DEJ,A 
E 

NZ, DEOK 
D 

A,D 

7 

NZ), DEOK 
A,D 

8 

D,A 

L 

NZ, HLOK 
H 

A, H 

7 

NZ, HLOK 
A, H 

8 

HA 
LASTLN 
HL 

DE 

DE 


SCA 
9CA1 
9CAZ 
9CAS 
9CAS 
9CAG 
9CA7 
9CA9 
S9CAA 
9CAB 
S9CAD 
SCAF 
9CB0 
9CBZ 
9CB3 
9CB4 
9CB6 
9CB7 
9CB8 
9CB9 
9CBB 
9cBCe 
9CBE 
9CBF 
9Cco 
9cc2 
9cCc3 
9CccCa 
9cco 
9cc7 
9cco 
9CC8 
Jal 
QCCE 


67 
7E 
12 
10fF6 
El 
2C 
2004 
24 
7C 
E607 
2004 
7C 
D608 
67 
20 
20E2 
El 
D1 
15 
2042 
7C€ 
co38 
67 
43 
3600 
2C 
Z00A 
24 
7C 
£607 
2004 
7C 
D608 
67 


0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 


OK 


BLANK 


LD 
LD 
LD 
DJNZ 
POP 
INC 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 
DEC 
JR 
POP 
POP 
DEC 
JR 
LD 
ADO 
LD 
LD 
LD 
INC 
JR 
INC 
LD 
AND 
JR 
LD 
SUB 
LD 


HA 

A, (HL) 
(DE),A 
NXTL IN 
Ht 


NZ, NXTCHR 
HL 

DE 

D 

NZ, NXTROW 
AH 

A,356 

HA 

B,E 
(HL) 0 

L 

NZ, CONT 

H 

AH 

7 

NZ, CONT 
AH 

8 

HA 


129 


aaa 


9CCF 10EF 10850 CONT DIUNZ BLANK ñ 
9cp1 C9 1060 RET 
1070 END 


Movimiento de un Bloque de Pantalla hacia abajo 


Esta rutina tiene un diseño y uso similar a la anterior, 
Usada para mover un bloque de pantalla hacia arriba. Funcio- 
na en los tres modos de pantalla y el formato es exactamente 
igual al anterior: 


. CALL 40000,L,R,U,D 


1 * SCROLL DE UN BLOQUE HACIA ABAJO 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40151 

30 READ a: POKE nm, VAL ("2'"+a$) 

| 40 NEXT 

50 DATA DD,6£,00,DD,66,06,2D,25,DD,7E 

60 DATA 04,94,4F,7D,C6,02,DD,96, 02,57 

70 DATA CD,1A,BC,7C€,C6,38,67,3E,0Q,81 

80 DATA 10,FD,5F,18,38,D5,43,5D,7C,D60 

90 DATA 38,597,70,D6,50,6F,30,04,7C,25 

| 100 DATA E6,07,20,04,7C,C6,08,67,E5,7E 

110 DATA 12,1C,20,04,14,7A,E6,07,20,04 

| 120 DATA 7A,D6,08,57,2C,20,04,24,7C,E6 

1 130 DATA 07,20,04,7C,D6,08,67,10,E2,E1 

140 DATA D1,D5,E5,4B,E5,06,07,5D,54,7C 

150 DATA D6,08,67,7E,12,10,F6,E1,2C,20 

160 DATA 0A,24,7C,E6,07,20,04,77,D6,08 

170 DATA 67,0D,20,E2,E1,D1,15,20,A2,7C€ 

180 DATA D6,38,67,43,36,00,2C,20,04,24 : 
190 DATA 7C,E6,07,20,04,7C,D6,08,67,10 


130 


200 DATA EF,C9 


De nuevo, L es izquierda, R es derecha, U es arriba y D es 
abajo. Como en la rutima anterior, una simple CALL dará como 
resultado un movimiento de un punto, por lo que será necesa- 
rio un bucle si intenta mover varios punto el bloque. 


0001 ; SCROLL BLOQUE ABAJO 

0002 ; 
9c40 0010 ORG 40000 
BC1A 0020 CHRPOS DEFL 0BC1AH 
9C4A DDBEOO 0030 LO L(IX+0) 
9cC43 DDESVE 0040 LD H,(IX+6) 
9C46 2D vaso DEC L 
9047 25 on60 DEC H 
9048 DD7E04 0070 LD A, (IX+2) 
9C4B 94 v0s0 SUB H 
9C4C 4F ses LD Cc,A 
9C4D 7D 0100 LO AL 
9C4E C602 0110 ADD A,2 
9CSO DOGEV02 0120 SUB  (1X+2) 
9053 57 0130 LD DA 
9054 CDIABC 0140 CALL CHRPOS 
9057 7C 0150 LD AH 
9C58 C638 0160 ADD A,56 
9CSA 67 0170 LO HA 
9C5B 3E00 0180 LO  A,0 
9C5D 81 0190 CHRIJID ADD A,C 
9CSE 10FD 0200 DJNZ CHRLITD 
9c60 SF 0210 LD, CEA 
9c61 1838 0220 JR START 
9063 DS 0230 NXTROW PUSH DE 


9C64 43 0240 LD B,E 


5D 
70 
D638 
57 
7D 
D6Sa 
6F 
3004 
sE 
25 
E607 
2004 
PE 
c608 
67 
ES 
7E 
12 
1C 
200A 
14 
7A 
E607 
2004 
7A 
D608 
57 
2C 
200A 
24 
ZE 
E607 
2004 
76 


0250 
0260 
0270 
02804 
0290 
0300 
0310 
2320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0419 
0429 
0430 
0440 
0459 
0460 
0470 
0480 
0490 
a500 
0510 
0520 
0530 
0540 
0550 
25600 
0970 
0580 


NELUL IN 
LATLN 


DEOK 


suB 


suB 


E,L 
A,H 

56 

D,A 

A,L 

80 

L,A 

NC, NEL IN 
AH 

H 

7 

NZ, NELIL IN 
AH 

A,8 

HA 

HL 

A, (HL) 
(DE),A 
E 

NZ, DEOK 
D 

A,D 

7 

NZ, DEOK 
AD 

8 

D,A 

É 

NZ , HLOK 
H 

AH 

33 

NZ, HLOK 
AH 


9094 
9C96 
9C97 
9C99 
SCA 
9C9B 
9coc 
9C9D 
9CIE 
9CoOF 
9CA1 
9CAZ 
9CA3 
9CA4 
9CAG 
9CA7 
9CAS 
9CA9 
9CAB 
9CAC 
9CAD 
9CAF 
9CB0 
9CB1 
9CB3 
9CBS 
9CB6 
9CB8 
9CB9 
9CBA 
9CBC 
9CBD 
9CBE 
9CBF 


D608 
67 
10E2 
Et 
D1 
DS 
ES 
4B 
ES 
0607 
5D 
54 
70 
D608 
67 
7E 
12 
10F6 
El 
20 
200A 
24 
7C 
E607 
2004 
7C 
D608 
67 
0D 
20E2 
E1 
D1 
15 
2042 


0590 
0600 
06108 
0620 
0630 
0640 
0650 
0660 
0670 
2680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
2810 
0820 
0830 
as40 
0850 
2860 
0870 
v8s0 
0890 
0900 
0910 
2920 


HLOK 


START 


NXTCHR 


NXTL IN 


Ok 


suB 8 
LD HA 
DJNZ LASTLN 
POP HL 
POP. DE 
PUSH DE 
PUSH HL 
LO c,E 
PUSH HL 
LD B,7 
LO E,L 
LD D,H 
LD AH 
suB 8 
LD HA 


LD A, CHL) 
LD (DE),A 
DJNZ NXTLIN 
POP. HL 

INC L 

JR NZ, OK 


INC — H 

LD A, H 
AND 7 

JR NZ, OK 
LD A, H 
suB 8 

LD HA 
DEC € 


JR NZ, NXTCHR 


POP HL 
POP. DE 
DEC D 


JR NZ) NXTROW 


9cc1 7€ 0930 LD AH 


9CcCcz D638 0940 suB 56 
9CC4 67 0950 LD HA 
9CC5 43 0960 LD BE 
9CC6 3600 0970 BLANK LD (HL),0 
9cc8 2cC 0980 INC Ot 
9CCY 200A 0990 JR  NZ,CONT 
9CCB 24 10900 INCH 
9cee 70 1010 LD AH 
9CCD EGO7 1020 AND 7 
9CCF 2004 1030 JR  NZ,CONT 
9cDi 7C 1040 LD A,jH 
9CD2 D608 1050 suB 8 
9CD4 67 1060 LD H,A 
9CDS 10EF 1070 CONT DJUNZ BLANK 
9CD7 C9 19080 RET 

1090 END 


Movimiento de un Bloque de Pantalla hacia la Izquierda 


La rutina para mover un bloque hacia la izquierda (y hacia 
la derecha) funciona de la misma forma que hacia arriba y 
hacia abajo, la rutima crea el efecto con algunas diferen- 
cias. Esto se debe principalmente, a que el movimiento hori- 
zontal es opuesto al movimiento vertical de las dos rutinas 
anteriores. 


El formato es exactamente el mismo: 


CALL 40000,L,R,U,D 


1 ? SCROLL DE UN BLOQUE HACIA LA IZQUIERDA 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 FOR n=400060 TO 40271 

30 READ a$: POKE n, VAL ("S£'"+2a$) 
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| 40 NEXT 

50 DATA DD,6£),22,00,65,86,2D,25,DD,7E 
60 DATA 04,94,4F,DD,7E,008,99,57,CD,1A 
70 DATA BC,3E,00,81,10,FD,47,CD,11,BC 
890 DATA DA,FA,9C, 28, 48,DD,6E, 02,DD,66 
90 DATA 04,2D,25,C5,CD,1A,BC,C1,0E,08 
100 DATA C59,E5,B7,CB,16,F5,7D,2D,B7,20 
110 DATA 04,7C,25,E£6,07,20,04,7C,C6,08 
120 DATA 67,F1,10,EB,E1,7C,C6,08,67,C1 
130 DATA 00,20,0F,7C,D6,40,67,7D,C6,50 
140 DATA 6F,30,04,24,7C,E6,07,20,04,7C 
150 DATA D6,08,67,15,20,C6,C9,05,D5,0E 
160 DATA 88,C5,E5S,CB, 26,5D,54,2C,208,BA 
170 DATA 24,7C,E6,07,20,04,7C,D6,08,67 
180 DATA 1A,CB,26,38, 04,CB,A7,18,02,CB 
190 DATA E7,CB,66,28,02,CB,C7,12,10,0D 
200 DATA CB,A6,E1,7C,C6,08,67,C1,0D,20 
Z10 DATA CE,7C,D6,40,67,7D,C6,50,6F,30 
220 DATA 0A4,24,7C,E€6,07,20,04,7C,06,08 
230 DATA 67,D1,15,20,B3,C9,05,D5,0E, 08 
240 DATA C5,E5,C5,5D,54,2C,20,04,24,7C€ 
250 DATA E6,07,20,04,7C,D6,08,67,7E,1F 
260 DATA 4F,1A,17,17,06,04,17,CB,21,CB 
270 DATA 21,17,10,F8,12,C1,10,DC,7£,17 
280 DATA 06,04,07,CB,27,10,FB,77,E1,7C€ 
290 DATA C6,08,67,C1,0D,20,C7,7C,D6,4M 
300 DATA 67,7D,C6,50,6F,30,04,24,7C,E6 - 
310 DATA 07,20,04,7C,0D6,08,67,D1,15,20 
320 DATA AC,C39 


Como en las anteriores, L es izquierda, R derecha, U arri- 
ba y D abajo. Como en las otras rutinas, una simple CALL ha- 
ce un movimiento de un solo punto, por lo que es necesario 
un bucle si quiere mover más puntos. Esta rutina también 
funciona en los tres modos de pantalla, como la de 
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Movimiento de un bloque de pantalla hacia la Izquierda. 


9C44 
EZCIA 
BCc11 
940 
9047 
9C4E 
9047 
904 
9C4E 
39041 
9c4D 
SCcou 
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DDEEVZ 
DOGS. 
a 


=E 
, 


DO7?EQ4 


24 


4F 
CO7EQA 


CcD11er 
DAFASE 
2348 
DOSEAZ 
DOENAA 
-D 


>= 
pu) 


ES 
CD01ABÉ 
21 


gee 


0001 

eQa2 

0Qn1a 

0020 CHEPOS 

007A <LMODE 

ada 

vas 

aca 

2070 

asa 

Qaeda 

viDo 

g110 

01:20 
1.3 

q140 

0120 

10 CARRITO 

2170 

Qied 

01290 

0200 

0210 

a220 

0270 

0240 

023 

Qee 

a2?0 

0280 

Q290 PROL2 


STPOLL ELSQUE IZQUIERDA 


O0FG. 426240 
DEFL DEC1AH 


DEFL QEC11H 


LD WESO 3 
LD Hi 165 
DEF: E 

DEL. H 

LD A, tIx+49) 
SUB HH 

Lo CA 

LD A, (1X+0) 
SUBE L 

LD DA 
CALL CHPPOS 
LD AQ 

ADD A,£ 
DYNZ CHPLITD 
LD B,A 
CALL SCMODE 
JP C,MODEA 
JR Z,MODE1 
LD L, 11IX+25 
LD H), (1X+9) 
DEC L 

DEC H 

PLUISH El 

CALL CHRPOS 
POP. Ec 

LD 2,8 


EE A A PT 


9C7Z 
9C73 
39C74 
9C75 
9C77 
9078 
9c79 
9C7A 
9C7B 
9C7D 
9C7E 
9c7F 
9C81 
9083 
9084 
9086 
9087 
9088 
9CBA 
9C8B 
9c8ra 
9C8E 
9cC8sF 
9C90 
9Cc91 
9C93 
9C94 
9096 
9C97 
9C98 
9CIA 
9C9B 
9C9D 
9C9E 


20DF 


DO640 


c650 


3004A 


0300 
0310 
0320 
0370 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0479 
a480 
0490 
0509 
2510 
0320 
0530 
0540 
2550 
0560 
0570 
0580 
0590 
2600 
2610 
0620 
0630 


LINEZ 


BYTEZ 


OK 2 


PUSH BC 
PUSH HL 
or A 
PL CALA 
PUSH AF 
LD AL 
DEC "L 
or 


LO AH 
DEC H 

AND 7 

JR NZ,OKZ 
LO AH 

ADD A,8 

LO HA 

POP AF 

DJNZ BYTEZ 
POP HL 

LO AH 

ADD A,8 

LD- HA 

POP BC 

DEC c 

JR NZ,LINEZ 
LD AH 

suB 64 

LO HA 

LO AL 

ADD A,80 

LD A 

JR NC,DONE2 
INCH 

LO AH 
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EG07 
z004 
70 
D608 
67 
15 
z0C6 
co 
05 
DS 
0E08 
Co 
ES 
CBZ6 
5D 
54 
2C 
Z00A 
24 
7 
E£607 
2004 
7C 
D608 
67 
1A 
CcB26 
3804 
CBA7 
1802 
CBE7 
CcBO6 
28902 
CcBC7 


0640 
0659 
0650 
0670 
0680 
0690 
0700 
2710 
0720 
0739 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
ps810 
0820 
2830 
0840 
0850 
4860 
0870 
pse0 
0890 
0900 
2910 
0920 
0930 
0940 
0950 
0960 
0970 


DONEZ 


MODE1 


ROWi1 


LINE1 


BYTE1 


OK1 


SETBIT 
BITOK 


AND 
JR 
LD 
suB 
LD 
DEC 
JR 
RET 
DEC 
PUSH 
LD 
PUSH 
PUSH 
SLA 
LD 
LD 
INC 
JR 
INC 
LD 
AND 
JR 
Lo 
suB 
LD 
LD 
SLA 
JR 
RES 
JR 
SET 
BIT 
JR 
SET 


7 

NZ, DONEZ 
AH 

8 

HA 

D 

NZ) ROWZ 


HA 

A, (DE) 
(HL) 
»SETBIT 

4,A 

BITOK 

4,A 

4, (HL) 

2, BITSET 

0,A 


A e A A A A A 


9CD3 
9CD4 

9CDO 
3CD8 
9CD9 
9CDA 
9coc 
S9CDD 
9CDE 
S9cCDF 

9CE1 

9CEZ 
9CE4 

9CES 
9CE6 
9CE8 
9CE9S 
9CEB 
9CEC 
9CED 
9CEF 
9cF1 

9CcF2 
9cF4 
9CcFS 
9crF6o 
9CF7 
9cF9 
9CFA 
9CFB 
9cre 
9CFE 
9CFF 
9000 


100D 
CBAG 


có08 


20B3 


0E£08 


0980 BITSET LD 
0990 DJNZ 
1000 RES 
1010 POP 
1020 LD 
1030 ADD 
1040 LD 
10509 POP 
1060 DEC 
1970 JR 
1080 LD 
1090 SsuB 
1100 LD 
1110 LD 
1120 ADD 
1130 LD 
1140 JR 
1150 INC 
1169 LD 
1170 AND 
1180 JR 
1190 LD 
1200 suB 
1210 Lo 
1220 DONE1 POP 
1230 DEC 
1240 JR 
1250 RET 
1260 MODEV. DEC 
1279 ROWO PUSH 
1280 LD 
12909 LINEO PUSH 
1300 PUSH 
1310 BYTEVO. PUSH 


(DE),A 
BYTE1 
4, (HL) 
HL 

AH 


NZ, LINE1 
AH 

64 

HA 

AL 
A,80 
L,A 

NC, DONE1 
H 

AH 

a 

NZ, DONE1 
AH 


NZ, ROLI1 
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9001 
23D02 
9D903 
9D04 
9D06 
9D07 
9D08 
ODA 
9Dec 
9D0D 
9DOE 
9D10 
9D11 

9D12 
9D13 
9D14 

9D15 
39016 
9D18 
9D19 
9D1B 
3D1D 
9D1E 
9D20 
9D21 

9D22 
9D24 
9d25 
9D26 
9028 
9D29 
3D02B 
9D2D 


9D2ZE 
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0604 


CcB21 
cB21 


10F8 


100€ 


0604 


CcB27 
10fFB 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1599 
1600 
1610 
1620 
1630 
1640 


1659 


OKO 


NXTROT 


LSTBYT 


LD 
LO 
INC 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 
LD 
RRA 
LD 
LD 
RLA 
RLA 
LD 
RLA 
SLA 
SLA 
RLA 
DJNZ 
LD 
POP 
DJNZ 
LD 
RLA 
Lo 
RLCA 
SLA 
DJINZ 
LD 


POP 


NXTROT 
(DEJ,A 
Bc 

BYTEO 
A, (HL) 


B,4 


A 
LSTBYT 
HD, A 


HL 


reo > 


9D2ZF 
39D30 
9DZZ 
90233 
9D34 
9D3S 
9D37 
9D38 
9D3A 
9D3B 
9D3C 
SOD3E 
9D3F 
39D41 
9D42 
9D47 
9D45 
9047 
9D48 
9D4A 
9D4E 
9D4c 
9D4D 
39D4F 


10660 
1€70 
1689 
1690 
1708 
1710 
1720 
1730 
1740 
1750 
170 
1770 
1780 
1790 
1800 
1810 
1820 
183 

1840 
1850 
1860 
1270 
1880 
1890 
1900 


DONEO 


NZ,LINEO 
A,H 

64 

HA 

AL 

A,80 

L,JA 

NC, DONEO 
H 


7 

NZ, DONEO 
AH 

8 

R,A 

DE 

D 

NZ, ROA 


Movimiento de un Bloque de Pantalla hacia la Derecha 


Una vez vistas las otras rutinas de movimiento de bloques 
de pantalla hacia arriba, 
no es muy difícil saber cómo funciona esta rutina. 


Una vez más. 


que en las rutina anteriores: 


hacia abajo y hacia la izquierda, 


el formato que se Usa es exactamente el mismo 
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mn 


Y como en las otras rutinas, 
miento del bloque de pantalla 


cha, 


CALL 40000,L,R,U,D 


por 1 


mientos más amplios. 


1 
10 
20 
30 
40 
50 
6 
70 
ga 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
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? SCR 
SYMBO 
FOR n 
READ 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


OLL DE UN BLOQUE HACIA LA DERECHA 
L AFTER 256: MEMORY 39999: SYMBOL AFTER 240 


=40000 TO 40277 
a$: POKE n, VAL ("28'+a$) 


DD,6E,02,DD,66,04,2D,29,7C,C6 
22,D0,796,06,4F,DD,7E,00,99,57 
CD,1A4,BC,28B,3£,00,81,23,10,FC 
47,C0D,11,BC,DA,FE,39C,28,46,0D 
6E,02,D0D,66,06,2D,23,C5,CD,1A 
BC, C1,0E, 08, C5,E9,87,CB,1E,FS 
2C,20,0A,24,7C,E6,07,20,04,7C 
D6,08,67,F1,10,E£D,E£1,7C,C6,08 
67,C1,0D,20,E£E1,7C,D6,40,67,7D 
C6,50,6F,30,0A,24,7C,E6,07,20 
Q04,7C0C,D6,08,67,15,20,C8,C9,05 
D5,0E, 08,C5,E5,CB,3E,5D,54,7 
20,B7,20,04,7C,29,€6,07,20,04 
7C0,06,08,67,1A,CB,3E,38,04,CE 
9F,18,02,CB,DF,CB,5E,28,02,CB 
FF,12,10,DB,CB,9E,E1,7€,C6,08 
67,C1,0D,20,CC,7C,D6,40,67,7D 
C6,50,6F,30,04, 24,7C,E6,07,20 
04,7C,D6,08,67,D1,15,20,B1,C9 
05,05, 0£, 08, C9, ES, C9,5D,94,7D 
20,B7,20,04,7C,25,E6,07,20,04 
7C,0C6,08,67,7E,17,4F,1A,1F,1F 


una simple CALL hará un 
un solo punto hacia la 
o que será necesario un bucle para obtener 


270 
280 
290 
300 
310 
320 


9c44 
BCc1A 
Bc11 
9040 
9043 
9246 
9C47 
9048 
9049 
9C4B 
9C4E 
9C4F 
9CDZ 
9C93 
9094 
9057 
9038 
SCA 
9C53B 
9cac 


DATA 06,04,1F,CB,39,CB,39,1F,10,F8 
DATA 12,C1,10,DA,7E,1F,06,04,0F,CB 
DATA 3F,10,FB,77,E1,7C,C6,08,67,C1 
DATA 00,20, C9, 7C,D6,40,67,7D,C6,50 
DATA 6F,30,04,24,7C0,E6,07,20,04,7 
DATA D6,08,67,D1,159,20,AA,C9 
0001 ; SCROLL BLOQUE DERECHA 
0002 ; 
010 ORG 40000 
0020 CHRPOS DEFL 0MBC1AH 
0030 SCMODE DEFL 08C11H 
DDSE0Z 0040 LD L, (1X+2) 
DDO6604 2050 LD H, (1X+4) 
ZzD 0069 DEC L 
29 0079 DEC H 
7C 0089 LD AH 
c60 2099 ADD A,2 
DD9606 0100 SsuB  (IX+6) 
4F 0110 LD CA 
DD7E00 0120 Lo A, (1X+0) 
95 0130 suB L 
57 0140 LD D,A 
CD1ABC 0150 CALL CHRPOS 
28 0160 DEC HL 
3E00 0170 LD AO 
81 0180 CHRWID ADD.  A,C 
23 0190 INC HL 
10FC 0200 DJINZ CHRIJID 
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A A A A A A A 


9CSE 
9CsF 
9c62 
9C65 
9067 
9C6A 
9C6D 
9C6E 
9C6F 
9cC70 
9073 
9C74 
9C76 
l 9077 
: 9078 
9C79 
9C7B 
9C7C 
9C7D 
» 9C7F 
9080 
9C81 
9083 
9085 
9086 
9088 
9089 
9C8A 
9c8c 
9C8D 
9C8E 
9c90 
9c91 
9C92 
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47 
cb11BC 
DAFESC 
2846 
DD6E0Z 
DD6606 
20 

25 

Cs 
CD1ABC 
c1 
0E08 


0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0509 
2510 
0520 
0530 
0540 


ROWZ 
LINEZ 


BYTEZ 


DKZ 


CALL 


B,A > 
SCMODE 
C,MODEO 
Z,MODE1 
L, (1X+2) 
H, (TIX+Ó) 
L 

H 

BC 
CHRPOS 
BC 

c,8 

BC 

HL 


9093 
9095 
9c96 
9098 
9C99 
9CIA 
9coc 
9C9D 
9coF 
9CAQ 
9CcA1 
9CA3 
9CAS 
9CA6 
9CA8 
S9CA9 
9CAA 
9CACc 
S9CAD 
SCAE 
9CAF 
9CB1 
9CBZ 
9CB3 
9CBs 
9CBO 
9CB7 
9CB8 
9CBO 
9CBA 
9cBe 
9CBD 
OCBE 
9Cccoa 


2051 
70 
D640 
67 
7D 
cesa 
eF 
3004 
24 
70 
E607 
2004 
70 
D698 
67 
15 
2008 
co 
05 
D5 
208 
c5 
ES 
CB3E 
50 
54 
7D 
2D 
87 
2004 
70 
25 
E607 
2004 


0550 
0560 
0570 
0580 
0590 
0604 
0610 
0620 
0630 
0640 
2650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
(SY Y 
0830 
0840 
0850 
0860 
0870 
0880 


DONEZ 


MOTCE1 


ROW1 


LINE1 


BYTE1 


JR 
>) 
suB 
LO 
Lo 
ADD 
Lo 
JR 
INC 
Lo 
AND 
JR 
LO 
SUB 
LD 
DEC 
JR 
RET 
DEC 
PUSH 
LD 
PUSH 
PUSH 
SRL 
Lo 
Lo 
LO 
DEC 
OR 
JR 
LD 
DEC 
AND 
JR 


NZ, LINEZ 
A,H 

04 

HA 

A,L 

A,80 


.L,A 


NC, DONEZ 
H 

A, H 

7 

NZ, DONEZ 
AH 

8 

HA 

D 

NZ, RONWZ 
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9cc2 
9CcC3 
9ccs 
9cce 
9cc7 
9cc9 
9CCB 
9ccD 
SccF 
9CD1 

9c03 
9cD5 
9CD7 
9CD8 
SCDA 
9coc 
9CODD 
9CDE 
9CEO 
9CE1 

9CE2 
9CE3 
9CES 
9CE6 
9CE8 
9CE9 
OCEA 
9CEC 
9CED 
OCEF 
9cFO 
a9cF1 

9CF3 
9CFS5 


146 


20cc 


DO40 


c650 


300A 


E607 
2004 


0899 
0900 
0910 
0920 
0930 
9940 
0950 
0960 
0979 
0980 
0990 
1009 
1010 
1020 
1030 
1049 
1050 
1069 
1070 
1089 
1090 
1109 
1110 
1120 
1130 
1140 
11509 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


ok1 


SETBIT 
BITOK 


BITSET 


LD 
ADD 
LD 
LD 
SRL 
JR 
RES 
JR 
SET 
BIT 
JR 
SET 
Lo 
DJNZ 
RES 
POP 
LD 
ADD 
LD 
POP 
DEC 
JR 
LD 
suB 
LD 
LO 
ADD 
LD 
JR 
INC 
LD 
AND 
JR 
LD 


AH 

A)8 

HA 

A, (DE) 
(HL) 
C,SETBIT 
SA 
BITOK 
3,)A 

3, (HL) 
Z,BITSET 
TA 
(DO0,A 
BYTE1 

3, (HL) 
AL 

A, H 


NZ,LINE1 
A, H 

04 

HA 

At 
A,80u 
L,A 

NC, DONE 1 
H 

AH 

7 

NZ, DONE 1 
A, H 


9cro 
9CcF8 
9cF9 
9CFA 
9CFB 
9CFD 
9CFE 
9CcFF 
9D00 
9DOZ 
9D03 
9D04 
9D03 
9D06 
9D07 
9D08 
9DA9 
9DUA 
9DaC 
9D0D 
9D0E 
9D10 
9D12 
9D13 
9D15 
9D16 
9D17 
9D18 
9D19 
9D1A 
9D1B 
39D1c 
9D1E 
9D1F 


D608 


15 
2081 


0604 
dE 
CcB39 


1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


DONE 1 


MODEO 
ROO 


LINEO 


BYTEO 


oka 


NXTROT 


suB 
LD 
POP 
DEC 
JR 
RET 
DEC 
PUSH 
LD 
PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
DEC 
OR 
JR 
LD 
DEC 
AND 
JR 
LD 
ADO 
LD 
LD 
RLA 
LD 
LD 
RRA 
RRA 
LD 
RRA 
SRL 


NZ, ROL1 


NZ, OKO 
AH 
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148 


1570 
1580 
1590 
10600 
1610 
1620 
1630 
1640 
10959 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
17730 
1740 
1750 
1760 
17790 
1780 
179390 
1800 
1810 
1824 
1830 
1849 
1850 
1860 
1870 
1880 
1890 
1300 


LSTBYT 


RRA 
DINZ 
LD 
POP 
DINZ 
LD 
RRA 
LD 
RRCA 
SRL 
DJNZ 
LD 
POP 
LO 
ADD 
LO 
POP 
DEC 
JR 
LD 
suB 
LD 
LD 
ADD 
LO 
JR 
INC 
LD 
AND 
JR 
LD 
suB 
LD 


NXTROT 
(DEJ,A 
BC 
BYTEO 
A, (HL) 


B, 4 


A 
LSTBYT 
(HI, A 
HL 

A, H 
A)8 


NZ,LINEO 
AH 


NC, DONE O 
H 

AH 

ys 

MZ, DONEO 
AH 

8 

HA 


Y 
4 


9D51 
39D52 
9D93 
9D35 


D1 
1:39 
ZOAA 
Co 


1910 DONEO 
1920 
1930 
19440 
1950 


POP 
DEC 
JR 

RET 
END 


DE 
D 
NZ, ROJO 


ONCE - Acordes RSX 


El Amstrad está equipado con una facilidad maravillosa que 
se puede usar para crear comandos muevos que son aceptados 
como palabras clave por el BASIC. Esta facilidad se conoce 
como ESX y esta rutina la usa para crear 24 comandos nuevos. 
Cada uno de estos comandos ejecuta un acorde determinado a 
través del sintetizador de sonido del Amstrad. 


Un acorde, como seguramente sabrá, es una combinación de 
varias notas musicales en armonía, que pueden ser tocadas 
simultáneamente. Tecleando CALL 40000, tendrá acceso a 4 de 
los acordes más populares, que aparecen listados más abajo. 
(Tenga en cuenta que mo hay espacios entre las partes de los 
nuevos comandos y que “$” equivale a sostenido y b. a bemol. 


Nuevo Comanda Acorde 
¡ CMAYOR C Mayor 
¡ CMENOR C Menor 
' CSMAYOR CR Mayor a Db.Mayor 
: CSMENOR CH$+ Menor o Db.Menor 
' DMAYOR D Mayor 
: DMENOR D Menor 
¡ DSMAYOR D$ Mayor Oo Eb.Mayor 
: DSMENOR DH* Menor o Eb. Menor 
' EMAYOR E Mayor 
¡EMENOR E Menor 
¡ FMAYOR F Mayor 
'¡ FMENOR F Menor 
y FSMAYOR FH Mayor O Gb.Mayvyor 


+ FSMENOR F%* Menor o Gb.Menor 


¡GMAYOFR G Mayor 
y GMENOR G Menor 
' GSMAYOR GH Mavor O Ab. Mayor 
¿GSMENOR GR Menor o Ab. Menor 
: AMAYOR A Mayor 
y AMENCIP A Menor 
; ASMAYOR Aé Mavor a Bb.Mayar 
¡ ASMENOR AB Mencr a Bb.Menar 
¡BMAYOR B Mayor 
¡BMENOR B Menor 

Todos los acordes se componen de tres notas, y usan los 
tres canales de sonido del Amstrad para producirlos. 

Para obtener lun acorde, solamente debe teclear uno de los 
comandos. Es una buena ¡dea poner el control de volumen a 
unas tres cuartas partes de su recorrido, ya que la salida 


de sonido 
como para 


demasiado potente para el altavoz integrado, 
l sonido sin algo de distorsión. 


es 


reproducir 


= 


1 il ACOFPDES 

10 SYMBOL AFTER 256: MEMORY ISYHBOL AFTEP 24u 
Z0 FOR n=400028 TO 49617 

30 PEAD at: POKE VALUES "+ado 

40 NEXT 

50 DATA 01,4A4,9€,21,94,9,0D,D1,BC,C0% 
60 DATA 98,90,03,723,9D,02,237,9D,C73,7B 
70 DATA 9D,C3,7F,9D,C3,43,72D,€3,47,%0 
80 DATA (3,48,9D,023,4F,90,03,923,9D,C 
30 DATA 57,9D,C3,5B,9D,C3,5F,39D,C2,63 
100 DATA 90,£3,67,9D0,23,6B,9D,C3,0F,9%D 
110 DATA C3,73,9D,C3,77,9D,C3,7B,9D,C3 
120 DATA 7F,9D0,€2,583,79D,C3,87,79D,C3,88 
130 DATA 9D,C3,8F,9%D,806,08,00,00,43,40 


AU A QQ N 
P2LQUN-?-s y 
SS 88SNSSS 


GQ 


U 
gl 
[S] 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


41,59,4F,D2,43,4D,45,4E,4F,DZ 

3,53,4D,41,59,4F,D2,47.53,40 
45,4E,4F,D2,44,4D,41,59,4F,DZ 
44,4D,45,4E,4F,D2,44,53,4D,41 


59,4F,D2,44,373,40,435,9E,4F,D- 
435.4D,41,59,4F,D2,45,4D,453,4E 
4F,22,46,4D,41,359,4F,DZ.46,4D 
459,4E,4F,D2,46,753,4D,41,359,4F 
02,46,573,4D,45,4E,4F,D2,47,4D 
41,359,4F,D2,47,4D,45,4E,4F,D2 
47,33,40D,41,59,4F,D2,47,953,4D 
45,4E,4F,D2,41,4D,41,59,4F,DZ 
41,4D,459,4E,4F,D2,41,53,4D,41 
99, 4F,D2,41,53,4D,459,4E,4F,D2 
42,4D,41,99,4F,DZ, 42,4D,45,4E 
4F,D2,00,1E,.00,18,5€0,1E£,%06,18 
52,1E€,0C0,18,54,1E,12,18,50,1E 
18,18,4€0,1E.1£,18,48,1E,24,18 
44,1E,24,18,40,1€,20,18€,32,1E 
36,12,38,1E,3€0,18,34,1E,42,18 
730,1£,48,12,20,1E,4E,18,78,1€E 
54,18,24,1E,54,1€, 20,1E,00,18 
10,1£,066,18,18,1E,6C,18,14,1E 
72,18,10,1E,78,18,0C,1E,7E,18€ 
(08,1£,84,12£,04,1E,84,12,00,21 
14,9E,16,00,19,5E,23,2560,23,ED 
353,02, 9E,5E,23,56,23,ED,53,0B 
9E,5E,23,56,ED,53,14,9E,F5,B7 
28,03,DD,7E,04,32,900,9E,32,09 
9E,32,12,9E,B7,28,12,C0D,€C2,BC 
D0,23,23,7E,B7,283,08,CB,7F,20 
04,3E,00,18,02,3E,0F,32,05,9E 
32,0E,9E,32,17,9E,F1,FE,Q02,C€ 
A7,BC,21,FF,9D,CD,AA,BC,30,FB 
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z 


480 DATA 21,08,9E,CD,AA,BC,30,FB,21,11 
490 DATA 9E,CD,AA,BC,30,FB,C9,31,00,00 
500 DATA 00,00,00,00,00,00,2A4,00,00,00 
510 DATA 20,00,00,00,00,10C,00,00,00,00 
520 DATA 08,00,00,00,7E£,02,DE,01,78,01 
530 DATA 7E,02,DE,01,92,01,5A4,02,C3,Q1 
540 DATA 66,01,54,02,C3,01,7B,01,A4,02 
550 DATA 38,02,AA,01,38,02,4A4,01,66,01 
560 DATA 7E,02,18,02,92,01,A4,02,18,02 
570 DATA 92,01,54,02,FA,01,786,01,7E,0- 
580 DATA FA,01,78,01,33,02,DE,01,66,01 
590 DATA 54,02,DE,01,066,01,44,02,18,02 
600 DATA C3,01,44,82,272,02,03,01,7E,02 
610 DATA FA,01,44,01,7E£,02,18,02,54,01 
620 DATA 5A,02,DE,41,22,01,5A4,02,FA, QU1 
630 DATA 92,01,38,02,07,01,78,01,78,02 
640 DATA DE,01,7B8,01,18,027,AA4,01,66,01 
650 DATA 18,02,C3,01,66,01,44,02,FA,Q1 
660 DATA 92,01,44,02,FA,01,AA,01 


Envolventes 


Veamos las partes más complejas del uso de estos tres a- 
cordes, usándolos con envolventes de somida. Si *taoca' el a- 
corde básico sin parámetros adicionales, obtendrá un sonido 
básico similar al de un acorde de *órgano”*. La rutina pone 
automáticamente el comando con la envolvente 0, que hace que 
cada acorde dure unos dos segundos. 


Es posible crear envolventes definidas por usted mismo, 
que se pueden incorporar dentro del sonido del acorde. Para 
hacerlo, prepare una envalvente de sonido normal (si no está 
familiarizado con las facilidades de sonido del Amstrad, mi- 
re en el manual del usuario). ÁA continuación, asigne un  nú- 
mero de envolvente al final del comando del acorde. Por e- 
jempio, si su envolvente era ENVY'  1,)3,4,1,15,-1,10 con el 
primer número indicando el número de la envolvente, debe  a- 
ñadir un *1* al final del comando de acorde. ej :¡CMAYOR,1. 


El volumen inicial del acorde depende de la envolvente que 
se use. El programa lo fija de la siguiente forma. Si el ta- 
maño del paso de la primera sección de la envolvente que se 
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está usando es positivo (excluido el 2), el volumen inicial 
se pone a 0. Si es negativo, el volúmen irmicial se pone al 
valor máximo, 15. Esto da a la envolvente el mayor rango de 
volúmen con que puede trabajar. 


Si usa un paso de envolvente de 0, puede hacer que el a- 
corde dure todo lo que usted quiera. Por ejemplo: 


ENV 2,10,0,100 
¡CMAYOR, Z 


Esto toca el acorde £ Mayor durante diez seaundos mientras 
que ENVY 2,n,4,100 tocará el acorde durante n segundos. 


Cuando se ejecutan los comandos, la rutina esperará hasta 
que las tres memorias intermedias de sonido estén disponi- 
bles, antes de añadir las notas que preparan el acorde en 
las colas de sonido. “i quiere limpiar las colas de sonida 
inmediatamente después de que el comanda sea ejecutado, debe 
añadir un parámetro extra antes del número de envolvente. 


ENV 4,15,-1,20 
¡CMAYOR, 0,4 
¡DMAYOR, 0, 4 


En este ejemplo, solamente sonará el acorde D Mayor, ya 
que el primer acorde se cortará tan pronto como empiece. Se 
puede usar cualquier valor para este parámetro extra. La 


rutina busca solamente la presencia de un parámetro extra, y 
no el valor de ese parámetro. 


Obviamente, usted na estará muy dispuesto a perder su: pri- 
mer acorde. Puede evitar esto poniendo un bucle de espera 
entre cada acorde. A continuación tenemos un ejemplo de como 
hacerlo: 


ENV 3,8,0,100 
¡EMAYOR, 0,3 

FOR T=1 TO TU: NEXT 
¡¿CMAYOR, 0,5 

FOR T=1 TO 250: NEXT 
¡DMAYOR,0,5 


3c40 
BCA7 
BCAA 
BCC2 
8cD1 

9040 
9c43 
9C44 
9c4o 
9C4A 
9c4r 
3c4F 
952 
9055 
9C58 
9056 
9C5E 
9cé1 

39C64 
9c67 
S9C6A 
9C6D 
39c70 
9073 
9c76 
9079 
9c7e 
9c7F 
9082 
9085 
9088 
9C8B 
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1d14ASC 
219490 
COD1BT 
03 
983% 
C323790 


CF3B90 


CI479D 
234B9D 
C34F9D 
C3539D 
2397 9D 
C353B9D 
C3oOF OD 
C3I639D 
C3679D 
C36B9D 
C3OFOD 
C3739D 
C3779D 
C37890D 
C37F9D 
C3839D 
C3879D 


SNDRES 
SUMSND 
AMPDIF 
LOGEXT 


TABLA 


ACORDES 


05 
DEFL 
DEF 
DEFL 
DEFL 
Lo 
LD 
ALL 
PET 
DEFI 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JE 
JP 
JP 
JP 
JP? 
JP 
JP 
yP 
yP 
JP 
JP 
yP 


40000 
QABCA7TH 
DBCAAR 
UBCEZA 
AECDIH 
EC, TABLA 
HL) ESPAC 
LOGEXT 


NOMBTE 
CMAY 
CHEN 
CSMAY 
CSMEN 
DMA Y 
DHEN 
DSMAY 
DSMEN 
EMAY 
EMEN 
FHAY 
FHEN 
SMAY 
FSMEN 
GMAY 
GMEN 
SMAY 
GSMEN 
AMAY 
AMEN 
ASMAY 
ASMEN 


9C8BE 
9C91 
9094 


9098 
9C9D 
SC9IE 
9CA3 
39CA4 
SCAA 
SCAB 
3CB1 

9CBZ 
9CB7 
9CB8 
GCED 
SGCBE 
39CC4 
9CCS 
9ccE 
9CCL 
39CD1 

ScDZz 
9CD7 
29CD8 
39CDD 
SCDE 
9CES 
9CE4 
GCEA 
S9CEB 
9cFi1 

9CFZ 
S9CF7 


DZ 


DZ 


D2 


SPAC 


NOMBTE 


JP 
JP 
DEFB 


DEFM 
DEFB 
DEFM 
DEF6 
DEF HI 
DEFB 
DEFM 
DEFB 
DEFI 
DEFEB 
DEFNM 
DEFE 
DEFI 
DEFB 
DEFM 
DEFE 
DEF PH 
DEFB 
DEFM 
DEFB 
DEFt1 
DEFE 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 


BMAY 
BMEN 
0,4,0,0 


"CMAYQO" 

"R'+*80H 
"CMENO" 

"R"+80H 
"CSMAYO" 
"RU+e0H 
“CSMENO" 
"RU+SQ 

"DMAYO"” 

"Pr+80H 
"DMENO" 

"R"+80H 
"DSMAYO" 
"RUSH 
“DSHENO" 
"RU+SoH 
"EMAYO" 
"RU San 
"EMENO" 
"RUt+e0H 
"FMAYCO" 

"RU+B0H 
“FMENO" 

"RU +g0H 
"FSMAYO" 
"RU+80H 
"ESMENO" 
"R"+80H 
"GMAYO" 

"R"+80H 
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D2Z 


DZ2 


MAY 


CMEN 


CSMAY 


CSMEN 


DMAY 


DMEN 


DSMA Y 


DSMEN 


Lo 


"GMENO" 
"Ro+S0H 
"GSMAYO" 
"R"+80H 
"GSMENO" 
"R"+80H 
'"AMAYO" T 
"Re8noH 
“AMENO” 
"RU-+Bu0h 
“ASHAYOQ" 
"“RU+80H 
"ASMENO" 
“R"+80H 
"BMAYO" 
"RU*+SQH 
"BMENO" 
"RU e*SQqH 
0 

E,jO 
ACORD 
E,6 
ACORD 
E,1Z 
ACORD 
E,18 
ACORD 

E, 24 
ACORD 

E, 30 
ACORD 
E,36 
ACORD 

E, 42 


29D51 

9D33 
9D95 
9D37 
9D59 
390585 
SD5D 
SDOF 
9061 

39D6Z3 
39D65 
3D67 
9069 
39D6B 
906D 
S9DeF 
9D71 

9D73 
9D75 
3D77 
9D79 
39D7B 
S9D7D 
S9D7F 
39D81 

9D83 
3D85 
9087 
9089 
29D8B 
9D8D 
2D8F 
3D91 

39D93 


1840 
1E30 
183c 
1E36 
1838 
1E3C 
1834 
1£42 
1830 
1£48 
182€ 
1E4E 
1828 
1E54 
1824 
1ES5A 
1820 
1£60 
181€ 
1£66 
1818 
1E6€ 
1814 
1E72 
1810 
1E78 
180€ 
1E7E 
1808 
1E84 
1804 
1E8A 
1800 
Z11A9E 


1000 
1010 
10208 
1030 
1040 
1950 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
11909 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 


1330 


EMAY 


EMEN 


FMAY 


FMEN 


FSMAY 


FSMEN 


GMAY 


GMERN 


GSMAY 


SSMEN 


AMNAY 


AMEN 


ASMAY 


SMEN 


BMAY 


BMEN 


ACORD 


JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 
JR 
LD 


ACORD 
EJ48 
ACORD 
E, 54 
ACORD 
E,60 
ACORD 
E, 66 
ACORD 
Esta 
ACORD 
E, 78 
ACORD 
E, 84 
ACORD 
E, 92 
ACORD 
E, 90 
ACORD 
EJ 1Q2 
ACORD 
E,108 
ACORD 
E,114 
ACORD 
E,120 
ACORD 
E,126 
ACORD 
E,132Z 
ACORD 
E,138 
ACORD 
HL, DATOS 


EMB 


9D96 
9098 
9D99 
SDIA 
9L9B 
9D9C 
SD9D 
S9DA1 
SLAZ 
SDAS 
S9DA4 
SDAS 
SDAS 


SDAA TZ 


SDAB 
SDAC 
39064 
S9DB1 

9DB2 
39DB4 

9DB7 
SDBA 
SDBD 
9DC0 
9DCc1 

39DC3 
9DCO 
9Dc7 
3DC8 
9DC9 
SDCA 
39DCB 
3DCD 
SDCF 
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1900 
19 


> 
> 


EDS3029E 


56 
EDS3149E 
FS 

B7 

2803 
DD7ERA 
32009 
32099E 
32129E 
B7 


PONENYV 


BIT 


D,0 
HL, DE 

E, (HL) 

Hi 

D, (HL) 

HL 
(TONO1), DE 
E, (HL? 

HL 

D, (HL) 

Ht 
(TONQZ1, DE 
E, (HL 

HL 

D, (HL) 
(TONO3+, DE 
AF 

A 

2, PONENYV 
Ay (IX+D) 
(ENV1I),A 
(ENVZJ,A 
(ENV3),A 

A 

2) NEGTVWO 
AMPDIP 

NC 

HL 

HL 

A, (HL) 

A 
Z,NEGTVO 
7,A 

NZ, NEGTVO 


39DD1 
SUD 


9DDS 3 


3D? 
SDDA 
3DDD 
SDEU 
SDE1 
SUES 
SDEG 
SDE 
SDEL 
SDEE 
SUF 1 
SOFA 
SDF6 
SD0FA 
SDFE 
SCFE 
SDFF 
S9Ena 


QE0Z 


905 


9E08 2 


3E09 


SE0B 


QE0E 


9E11 


21089E 
CDAABC 
ZOFB 
21119 
CDAABL 
30FB 
29 


ca 20 


02 00 


20 09 


200 00 
1c 


10680 
169% 
1700 
1711 
1720 
1730 
1740 
1750 
1760 
1770 
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1850 


1920 


1940 


1950 


NEGTVO 
PONAMEF 


ACOMP 


BLOMP 


£COMP 


SND1 


ENV1 


TONO1 


AMPL 1 


3ND2 
ENVZ 


TONOZ 


AMPLZ 


DEFB 


DEFB 


DEFB 
DEFB 


DEFB 


DEFB 


DEFB 


AD 
PONAMP 
Aj13 


(AMPLID.A 


(AMPLI, A 
(AMPL A 


AF 


Z, SNDPES 
HAL) SNG1 
SUMSNOD 
NC) ACQMIP 
HL, ENCIZ 
SUMSANOD 
NC, BLOMP 
HL) SNOS 
SUMESND 
NC), ECCOMF 
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9E12 


39E14 


S9E17 


SELA 


9E20 


39EZ26 


9E32 


9E78 


SEE 


9E44 


SE4A 


9E30 


9E56 


S9ESC 


968 
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00 


ENV3 


TONOS 


AMPL 


DATOS 


DEFB 


DEFB 


DEFE 


DEFU! 


DEFI 


DEFW 


DEF 


DEFL! 


DEF 


DEF 


DEFU 


DEF 


DEF LI 


DEFU 


DEFLI 


DEFLJ 


DEFNW 


602,451,338 


602,4591,379 


638,536, 402 


976,336,402 


038,506, 3729 


5676,536,451 


676,368, 451 


SEGE 7E02 2130 DEF 638,506, 426 
FAQ1 AAD1 

9E74 7E02 2140 DEFW 638,536,426 
1802 AAQ1 

SE7A 5A2Z 2150 DEFW 5602,478,402Z 
DEO1 9201 

9ESQ SAQZ 2160 DEF 502,506, 402 
FAQ1 9201 

9E86 3802 2170 DEFW 568, 451,379 
c301 7B01 

SEBC 3802 2180 DEF 568,478,379 
DEQ1 7801 

9E92 1802 2190 DEFW 536,426, 358 
AA01 6601 

9E98 1802 2200 DEF 536,451,358 
C301 6601 

GESE A4OZ 2210 DEFI 676,506, 402 
FA01 9201 

SEA4 AG4OZ 2220 DEFL 676,506, 426 
FA01 AAQ1 

2230 END 


Organo de Acordes 


No podemos dejar esta rutina sin proporcionar un * programa 
de órgano de acordes. Sin embargo, no usaremos líneas como 
IF INKEY$='"'A'" THEN ¡AMAYOR, como hemos hecho con otros  pra- 
gramas para controlar interrupciones y envolventes. Nuestro 
programa interpreta todos los acordes principales, notas na- 
turales, agudas y graves. 


Aquí tenemos el “teclado”: 


N 
U 
u 
o 
N 
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Y estas son las notas que representan: 


CH Ds FR GR AR 


108 ENV 1,10,8,188 

Z0 DIM k(12):m=-1 

30 FOR n=4 TO 12: READ k (n) : NEXT 

40 n=0 

50 a=INKEY(k (m3) 

90 IF a=0 AND nm=m GOTO 4U 

70 IF a=0 GOTO 120 

80 n=n+1 

90 IF n:13 GOTO 20 

1090 SOUND 135,0,0,0:m=-1 

110 GOTO 40 

120 ON n+1 GOSUB 140,150,160,170,1€0,190,200,210, 
220,2730,240,250,2060 

130 m=n: 50TO 40 

140 :CMAYOR, 0,1: RETURN 

150 ¡;DMAYOR, 04,1: RETURN 

160 ¡EMAYOR, 0,1: RETURN 

178 ¡FMAYOR, O, 1: RETURN 

180 ¡GMAYOR, 0,1: RETURN 

190 ¡AMAYOR, 0,1: RETURN 

200 ¡BMAYOR,U, 1: RETURN 

210 ¡CMAYOR, 0,1: RETURN 

220 ¡CSMAYOR, 0, 1: RETURN 

230 ¡DSMAYOR, 0,1: RETURN 

240 ¡FSMAYOR, 0,1: RETURN 

2530 ¡GSMAYOR, 0,1: RETURN 

260 ¡ ASMAYOR, 0,1: RETURN 

270 DATA 67,59,58,50,51,43,42,39,0659,/57,49,48,41 
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DOCE - Compresores de Pantalla 


Estas dos rutinas de compresión de pantallas solamente 
funcionan en los modelos Amstrad que usan cinta. Debido a la 
dirección donde almacenan las pantallas comprimidas, los co- 
mandos de manejo de discos resultan afectados por lo que no 
es posible salvar el resultado de la compresión mas que a 
cinta. 


Compresor 1 


La pantalla del Amstrad se encuentra almacenada en 16k de 
memoria. Es mucha memoria RAM para almacenar lo que suele 
ser una simple imagen de pantalla. La mayoría de la pantalla 
se haya rellena de espacios en blanco y tiene el valor 0. U- 
na sección de pantalla de 20 puntos se representa en la RAM 
como veinte ceros. Se desperdicia gran cantidad de memoria. 
Nuestra rutina compresora hace un mejor uso de la memoria de 
la pantalla. 


Este programa mira primero una sección de la RAM de panta- 
lla. Si tiene un valor distinto de cero, lo almacena tal co- 
mo está, sin alteraciones. Si el valor es 0, cuenta la can- 
tidad de ellos que hay consecutivos y almacena un solo cero 
con un segundo valor que indica el número de ellos que ha 
contado antes de encontrar otro carácter distinto. 


1 á COMPRESOR 1 

10 SYMBOL AFTER 256: MEMORY 20000: SYMBOL AFTER 240 
20 FOR n=43800 TO 43888 

30 READ a$: POKE n, VAL ("£"+a$) 

40 NEXT 

50 DATA 11,00,C0,21,17,AB,7E,12,13,2B 

60 DATA CB,7A,C8,B7,20,F6,46,27B,05,28 

70 DATA F1,12,13,10,FC,CB,7A,20,E9,C9 

80 DATA FE,01,C0,11,00,C0,21,17,AB,1A 

90 DATA 77,13,2B,CB,7A,28,18,B7,20,FS 


100 DATA 06,01,1A,B7,20,08,13,CB,7A,28 
110 DATA 07,04,20,F4,70,2B,18,E3,04,70 
120 DATA 2B,EB,21,17,AB,B7,E0,52,EB,DD 
130 DATA 6E£,00,DD,66,01,73,23,72,C9 


Para comprimir una pantalla, use los siguientes comandos: 


A%=0: CALL 43830. 08A% 


En la variable A% devuelve el número de octetos que ocupa 
la pantalla, de forma que pueda calcular la cantidad de me- 
moria ahorrada. (Esto también es aplicable al segundo  pro- 
grama compresor que sigue a este). 


Para retornar la pantalla a su estado inicial, teclee: 


CALL 438008 


Para salvar una pantalla, compr ímala primero de la forma 
explicada, y teclee después: 


SAVE "NOMBRE", B,43800-A%, AZ+30 


Para cargarla y mostrarla, haga un LOAD '"" y después CALL 
43800. 

Cuando salve la pantalla, debe salvar también la rutina de 
compresión. 


0001 ; COMPRESOR 1 ¡ 
0002 5 

AB18 0010 ORG 43800 
0020 5 RUTINA1 

AB18 110000 0030 LD DE, ACOVOA 

AB1B 2117AB 0040 Lo HL, 43799 

AB1E 7E 0050 UNCMPT LD A, (HL) 
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FER1 


O] 


1108020 


¿21 7AB 


ques 
0070 
0020 
2050 
2100 
0110 
0120 
2130 
0140 
0150 
2160 
2170 
Qq1i3u 
0198 
20m 
0210 


02294 
usa 
031 


PEFPEAT 


DoiNZ 


COMPACT 


COUNT 


Le ¡DE+,A 
INC CE 
DEC HL 
BIT 7,D 
RET Z 
OR A 
JR"  NZ,UNCMPT 
LD B, (HL) 
DEC HL 
DEC. E 
JR < LUNECMET 
UD (DEN,A 
INC. DE 
FEPEAT 
B1T 7.0 
JyE NZ., UINCMPT 
FET 

RUTINA 2 
cP 1 
RET  NZ 
Lo DE. ACAMH 
LD HL,43799 
LD A, (DE) 
LD (HL A 
INC CE 
DEC HL 
BIT 7,0 
JR Z, TOTAL 
or A 
JR NZ. COMPCT 
LD B,1 
LD A, (DE) 
or A 
JR NZ, GOTLEN 


AESQ 13 g4Ra INC 
AB51 CB7A 414 BIT 
AB9O3 2807 D420 JR 
ABOS 04 0430 INC 
ABJÓ 20F4 0440 JR 
ABS8 70 0450 GOTLEN LD 
ABO9S ZB 0460 DEC 
ABSA 18E7 0479 JR 
ABESC QU 0480 LAST INC 
ABESD 74 04390 LD 
ABSE 28 0500 DEL 
ABSF EB 0510 TOTAL EX 
AB6N 2117AB 0520 LD 
AB6Z B7 033 OP 
ABÓ4 EDOZ 053540 sBC 
ABOO EB 0550 EX 
AB67 DDGEDO 1560 LD 
AB6A DD6SW1 aa) LD 
ABOD 773 1580 LD 
ABOE 253 03591 INC 
ABOF 72 2600 Lo 
AB7O 29 v614 RET 
06z0 ENC 


Compresor 2 


A diferencia de 
los caracteres que 
ceros. por ejemplo, 


se encuentra 


e; 
21, 


3,160,2,2,2,2,2,218,8,8,8 
ta rutina la almacena así: 


2,1,160,1,2,6,8,4 
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la rutina anterior, 


DE 
7,0 
Z,LAST 


B 

NZ, COUNT 
(HL, 8 
HE 
COMPCT 

B 

(AL, 8B 
HL 


HL, DE 
DE, HL 

L, (1IX+0) 
H), (1X+1) 
(HE 
HL 

(HO. le 


todos 
sean 


esta compr ime 
repetidos, aunque no 


una porción de la pantalla es: 


El mayor problema de esta rutina es que si la pantalla es 


demasiado complicada, no comprime nada y puede que ocupe más 

de las 16k usadas para almacenar la pantalla en circunstan- 

cias normales. Sin embarao0, como funciona con la mayoría de 
y 


las pantallas, puede intentar usarla primero. 


1 COMPRESOR Z 

10 SYMBOL AFTER 2506: MEMORY 20000: SYMBOL AFTER 240 
Z0 FOR n=43800 TO 43875 

30 READ a3$: POKE nm, VALI"2£'"+ato 

40 NEXT 

50 DATA 11,00,C0,21,17,A86,7£,2B,460,28 
60 DATA 12,13,10,FC,206,7A4,20,F4,C9,FE 
70 DATA (01,20,11,00,20,21,17,AB,1A,77 
80 DATA 17,2B,06,01,C0B,74,28,12,4F,14 
30 DATA E9,20,0£,13,76,74,22,07,04, 24 
100 DATA F4,70,26,18€,E3,04,70,2B,E8,21 
110 CATA 17,46,67,ED,32,E86,DD,6E,%0,0C: 
120 DATA 566,01,73,22,72,€09 


Para comprimir la pantalla: 
A%=8: CALL 43819, A% 
Para descompr imirla: 


CALit 43800 


Para salvar una pantalla y el descompresor (necesario para 
mostrar la pantalla de forma normal) teclee: 


SAVE "NOMBRE",B,43800-A%, A%+19 


En este caso B na es una variable, sinca el signo que le 
169 
1 


kl 


dice al ordenador que está 


AB18 


AB18 
AB1B 
AB1E 
AB1F 
AB20 
ABZ1 

ABZZ 
AB27 
ABEZ4 
ABZO 
AB28 
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110000 
2117AB 


FEQ1 
CO 
1100C0 
Z2117AB 
1A 

7 


0001 
aQaz 
0010 
pozo 
v0030 
0040 


, 


3 


3 


salvando un fichero binario. 


ORG 


LD 
LD 


0050 UNCMPT LD 


0060 
0070 
0180 
gasa 
0100 
vilo 
q1z0 
qi30 
0140 
0150 
0160 
Q170 
18N 
194 
0290 
0210 
0220 


REPEAT 


COMPCT 


COUNT 


DEC 
LD 
DEC 
LD 
INC 
DINZ 
BIT 
JR 
RET 


cP 
RET 
LD 
LD 
Lo 
LD 
INC 
DEC 
LD 
BIT 
JR 
LD 
Lo 
cP 


COMPRESOR 


433800 
RUTINA1 
DE, 0CO0B0H 
HL, 43799 
A, (HL) 

HE 

B, (HL) 

HL 

(DEJ,A 

DE 

REPEAT 
7,0 

NZ, UNCMPT 


RUTINA 1 
1 

NZ 

DE), 40CA000H 
HL) 43799 
A, (DE) 
(HL A 
DE 

HE 

B,1 

7D 

Z, TOTAL 
CA 

A, (DE) 

c 


paa 


— 


EE 
DUGEDO 
DDEBA1 


0300 
0310 
0320 
0330 
0340 
0354 
0360 
0374 
0380 
0399 
0400 
Qq414 
D4ZQ 
04349 
0440 
1450 
0460 
0470 
0450 
Y430 


GOTLEN 


LAST 
TOTAL 


INC 
BIT 


INC 


RET 
ENT: 


NZ, GSOTLEN 
DE 

7,D 

Z LAST 

B 

NZ, COUNT 
(HD), B 
HL 
COMPCT 

B 

(HDD, BE 
HL 


HL, DE 
DE, Hit 

CL, 11IX+0) 
H, (1X+1) 
(HO E 
HL 
(HL, O 
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TRECE - DOKE y DEEK 


Cuando se programa en código máquina se suele hacer PEEK y 
POKE de números de 16 bits. Mientras que los números de 8 
bits tienen un rango de 256, los de 16 bits lo tienen de 
65535. Los números de 16 bits usan dos octetos, y para hacer 
un POKE de un número de dos octetos, se debe usar esta pe- 
queña fórmula: 


POKE octetol + 256 * octeto2 


Esto mismo se aplica cuando se hace un PEEK de dos octetos 
de una posición de memoria. Algunos ordenadores tiene sufi- 
ciente suerte como para tener comandos que pueden hacer 
Doble-PEEK y Doble-POKE, conocidos como DEEK y DOKE. Esta 
rutina proporciona dos comandos nuevos de BASIC,:¡DOKEÉ y 
¡DEEK. 


1 7 DOKE/DEEK 

10 SYMBOL AFTER 256: ME¿MORY 39999: SYMBOL AFTER 240 
20 FOR n=40000 TO 40071 

30 READ a$: POKE nm, VAL ("2 ''+ ath) 

40 NEXT 

50 DATA 01,4A,9C,21,52,9C,CD,D1,BC,C9 
60 DATA 56, 9C,C3,5F,9C,C3, 72, 9C,00,00 
70 DATA 00,00,44,4F,4B,C59, 44, 49,49,CB 
80 DATA 00,FE,02,C0,DD,6E,02,0D,66,03 
90 DATA DD, 7£,00,77,273,DD,7E,01,77,C9 
100 DATA FE,02,C0,DD,6£,02,DD,66,03,DD 
110 DATA 5E,00,DD,56,01,7£,23,12,13,7E 


120 DATA 12,C9 


Primero debe hacer una CALL 40000 para preparar los nuevos 
comandos, para usar ¡DOKE, debe ir seguido por una dirección 
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válida de memoria y por un número de 16 bits. Los dos valo- 
res deben ser decimales. ;DOKE,30000,343 dividirá el valor 
343 en dos usando la fórmula inversa a la anterior y colo- 
cando los. dos valores en las posiciones de memoria 30000 y 
30001. 


¡DEEK es un poco más complicada. Se usa con el formato: 
N%=0: ¡DEEK, A, ON 


A es la primera dirección de la que se vaa hacer  PEEK 
(¿DEEK mirará en Á y At+r1í) mientras que N%¿ contiene el valor 
retornado por el ¡DEEK. N% se debe definir antes del ¡DEEK. 
Como puede ver por el signo %, debe ser una variable entera. 
Recuérdelo si quiere imprimir el valor real de DEEK. Si el 
valor devuelto es negativo, necesitará imprimir 65536+N% pa- 
ra obtener el valor real. 


0001 ; DOKE DEEK 
0002 ; 
9040 0010 ORG 40000 
8co1 0020 LOGEXT DEFL OBCDIH 
9C40 014A9C 0030 LD BC,TABLA 
9043 215290 0040 LD HL,ESPACI 
9046 CDDIBC 0050 CALL LOGEXT 
9049 C9 0060 RET 
9C4A S69C 0070 TABLA DEFIJ NOMBTB 
9C4C C3SFOC 0080 JP DOKE 
9C4F C3729C 0090 JP DEEK 
9cs2 00 0100 ESPACI DEFB 0,0,0,0 
00 00 00 ; 
9C56 0110 NOMBTB DEFM "DOKk" 
9059 C5 0120 DEFB "E"+80H 
9CSA 0130 DEF "DEE" 
9C5D CB 0140 DEFB "k"+80H 
9CSE 00 0150 DEFB 0 
9C5F FEO2 0160 DOKE CP. 2 
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9C61 

9062 
39C605 
9068 
9C6B 
9coc 
3C6D 
9Cc70 
9c71 

9072 
9C74 
9079 
9Cc78 
9C7B 
9C7E 
9c81 

9c82 
9C83 
9C84 
ac85 
9C86 
9Cce7 


CO 
DODSELZ 
DD6603 
DD7E00 
77 

23 
0D7E81 
77 

ca 
FEOZ 
co 
DD6E02 
DD6603 
DDSEGO 
005601 


y 
m 


N 
(0 


Rh JJ» e 
N MON 


O 
0 


0170 
0180 
0190 
0200 
0219 
02204 
8238 
0240 
0250 
0260 
0270 
10280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 

360 
0370 
0380 
0390 


DEEK 


RET 
LD 
LD 
LD 
LD 
INC 
LD 
LD 
RET 
cP 
RET 
LD 
LD 
LD 
UD 
LD 
INC 
LD 
INC 
LD 
LD 
RET 
END 


NZ 

L, (1X+2) 
H, (1X+3) 
A, (I1IX+0) 
(HD, A 
HL 

A, (1X+1) 
(HO, A 


2 

NZ 

L, (1X+ 2) 
H, (TX+3) 
E, (1X+0) 
D, (IX+1) 
A, (HL) 
HL 

(DE) ¿A 
DE 

A, (HL) 
(DE) ,A 
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CATORCE - El Paquete de 
Escritura de Juegos 


Para terminar este libro tenemos un programa que nos pro- 
porciona una selección de las rutinas en código máquina en 
un solo paquete fácil de usar. La rutina crea nuevas pala- 
bras clave de BASIC, usando las llamadas RSX. 


'EXPLODE, ¡ READCHAR, ¡BIGPRINT, ¡ USCROLL , 
*DSCROLL, ¿LSCROLL, ¡RSCROLL, : COMMANDS 


Veámoslas por turno. EXPLODE no necesita ningún parámetro. 
Simplemer:te crea un sonido de explosión, muy usado en los 
programas de juegos. READCHAR y BIGPRINT son dos comandos 
que corresponden al título de las rutinas que hemos visto en 
este libro. BIGPRINT crea caracteres de doble tamaño mien- 
tras que READCHAR calcula el carácter ASCII en una posición 
de pantalla determinada. 


USCROLL, DSCROLL, LSCROLL y PSCROLL son las cuatro rutinas 
de movimiento de pantalla que hemos visto anteriormente, con 
la primera letra indicando la dirección del movimiento. 
COMMANDSE mos proporcicna una lista de los comandos anterio- 
res. 


Para comprender cómo funciona cada uno y los parámetros 
que necesitan, debe dirigirse a cada rutina en particular. 


Este paquete ofrece la mayor parte de las rutinas en códi- 
go máquina necesarias para escribir un buen juego "híbrido", 
parte en BASIC y parte en código máquina. 


di E PAQUETE ESCRITURA DE JUEGOS 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL AFTER 240 
20 DIM x(12) 

30 FOR c=0 TO 12: READ a$: xx (c)=VAL ("8 +as): NEXT 

40 c=0: sum=0 
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A O 


50 
60 
70 
80 
90 


100 
110 
120 


130 
140 
150 
160 
170 
190 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
. 300 
310 
320 
330 
340 
- 350 
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FOR n=400040 TO 41207 Ñ 
PEAD as: v=VAL ("2£'"+a$) 

sum=sumtv:POKE nm,v 

IF fn+1-400001) MOD 190:->0 GOTO 110 

IF sume (cr THEN FPINT "*DATOS ERFRONEOS*"5 CHRB (7): 

PRINT "Compruebe las líneas '"'¡210+100x*C;" a "5 


300+100*c: END 


IF sumo 1cr THEN PFRINT "*DATOS EPRONECIE*"; CHPB (7) : 


PRINT "Compruebe la línea 1410" 


+ DATOS DE WEFPIFICACION 


DATA 26779, 2FQ07, 2A7A,27A7, 267B, 2434, 2142 


? CODIGO MAQUINA 


DATA 01,4A4,3C,21,€64,39C,CD,D1,BC,C9 
DATA 68,9C, C3, A4,9C, C3, C3,9C,C3,D7 
DATA 9C,€3,77,9D,C7,09,9E,C3,A1,9E 
DATA C2,61,9F,C2,C07,A0,00,00,00,00 
DATA 45,58,50,4€C,4fF ,44,C59,52,43,41 
DATA 44,473%,428,41,D2,42,49,47,50,52 
DATA 49,4E,D4,55,92%,473,52,4F,4C,CC 
DATA 44,572,42,52,4F,42,0C,47,593,43 
DATA 52,4F,410,20,92,53,473,592,4F,4€ , 
DATA 2C,43,4F,40,4D,41,4E,44,D7,00 
DATA CD,A7,BC,3E,01,21,B€,92,CD,BL 
DATA BC,21,BA,9C,CD,AA,EC,19,Q1,0F 
DATA FF,19,01,01,00,00,00,0F,0F,20 
DATA (20,0D,6E€,02,DD,66,04,2D,75,88B 
DATA CD,60,BB,D0,5E,00,0D,66,01,77 


360 
370 
380 
3090 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


C9,0D,93,B8B,F5,DD,6E, 04,DD,66 
05,46,23,5E,23,560,DD,6£,06,DD 
60, 08, C3,D5,E5,1A,47,CD,06,B9 
78,CD,34,9D,47,CD,09,B9,E1,50D 
54,0, 795,BB,DD,7E,02,C0,90,BB 
78,C0D,5A,B8,3C,CD,54,8B,0B,62 
2C,CD,75,BB,0D,7£,00,CD,90,EB 
78,3C,3C,CD,5A,BB,73C,CD,5A,BB 
6B,62,24,24,D1,13,C1,10,8D,F1 
CD,90,BB,C9,CD,A5,BB,EB,C0,AÉ 
BB,F5,0E,02,06,04,C5,1A,0F,0F 
0F,0F,06,04,1F,CB,1E,CB,2E,10 
F92,7E,23,77,06,07,27,10,FD,1A 
06,04,1F,CB,1E,CB,2E,10,F9,7E 
23,77,06,9097,28,10,FD,13,C1,10 
D3,06,08,23,10,FD,0D,20,C9,F1 
29,DD,6£, 42, DD,€6,06,2D,25,DD 
7€£,04,94,4F,DD,7E,00,95,57,CD 
14,BC,3E,00,281,10,FD,5F,18,38 
D5,43,5D,7C,C06,738,57,7D,C64,50 
6F,30,04,24,7C,E6,07,20,04,7C 
D6,08,67,E5,7E£,12,1C,20,04,14 
74,€6,07,20,04,7A,D6,08,57,2C 
20,04,24,7C,E6,07,20,04,7C,D6 
28,67,10,E2,E1,D1,D5,E5,4B,ES 
26,07,5D,54,7C,C6,08,07,7E,12 
10,F6,E1,2C,20,04,24,7C,€£6,07 
20,04,7C,06,08,67,00,20,E2,E1 
D1,15,20,A2,7C,C6,38,67,43,36 
00,20,20,04,24,7C,€6,07,20,04 
7C,D6,08,67,10,EF,C9,DD,6E, 00 
DD,66, 06, 2D,23,0D, 7E,04,94,4F 
7D,C6,02,DD,96,02,57,CD,1A,BC 
7C0,06,38,67,3E£,00,81,10,FD,5F 
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700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
2900 
910 
920 
930 
940 
930 
960 
970 
984 
994 
1000 
1010 
1920 
1030 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


8,38,D5,43,5D,7C,D6,38,597,7D 
D5,50,6F,30,04,7C,25,E6,07,20 
04,7C0,C6,08,67,ES5,7E,12,1C,20 
0A,14,74,E6,07,20,04,7A,D6,08 
57,2C0,20,04,24,7C,E6,07,20,04 
7C,D6,08,67,10,E2,E1,D1,D9,ES, 
48,E£5,06,07,5D,54, 7€,D6,08,67 
7€,12,10,F6,E1,20,20,04,24,7€ 
E6,07,20,04,7C,D6,08,67,00D,20 
E2,£1,D1,15,20,A2,7C,D6,38,067? 
43,36,00,2C0,20,04,24,70,E6,07 
20,04,70,D6,08,67,10,EF,C9,DD 
£E,02,0D,66, 06,2D,25,DD,7E,04 
94,4F,DD,7£,00,95,57,CD,1A,BC 
7E,00,81,10,FD,47,CD,11,BC,DA 
5B,9F,28,48,DD,6E,02,DD,66,04 
2D,25,C93,CD,1A,BC,C1,0£,08,C5 
ES,B7,CB,16,F5,7D,2D,B7,20,04 

702,25,E6,07,20,04,7C,C6,08,67 
F1,10,EB,E1,7C,C6,08,67,C1,0D 
20,DF,7C0,D6,40,067,7D,C0,50,6F 
30,04,24,7C0€,E6,07,20,04,7C,D6 
Q08,67,15,20,C6,C9,05,D5,0E,08 
25, ES, CB, 26,5D,954,2C,20,0A,24 
7€0,E6,07,20,04,7C,D6,08,67,1A 
CB, 26,38, 04,CB,A7,18,02,CB,E7 
28,066, 28,02,CB,C7,12,10,DD,CB 
A6,E1,7C,C6,08,67,C1,0D,20,CE 
70,D6,40,67,7D,C6,50,6F,30,0A 
24,70,E6,07,20,04,7C,D6,08,67 


DATA D1,15,20,B3,179,05,D5, 0E, 08, 05 
DATA ES, C5,5D,54,2C, 20,04, 24,7C,E6 
DATA 07,20,04,7C,D0,08,67,7E,1F,4F 
DATA 14A,17,17,06,04,17,CB,21,CB,21 


1049 DATA 17,10,F8,12,C01,10,DC,7E£,17,06 
1050 DATA 04,07,C0B,27,10,FB,77,€1,7€,C6 
1060 DATA 08,67,C01,0D,20,C7,7C0,D6,40,67 
1070 DATA 7D,C06,50,6F,30,04, 24,7C,E6,07 
1080 DATA 20,04,7C0,D6,08,67,01,15,20,AC 
1090 DATA C9,DD,6E£,02,DD,60,04,2D,25,7C€ 
1100 DATA C26,02,DD,96,06,4F,DD,7E,00,25 
1110 DATA 57,C0D,1A,BC,28,3E,00,81,23,10 
1120 DATA FC,47,CD,11,B8C,DA,6F,A0,28,46 
1130 DATA DD,56E£,02,DD,66,06,2D,29,C09,€D 
1140 DATA 1A4,BC,C1.0E.08,725,E9,87,CB,1E 
1150 DATA FS5,2C,20,04,24,70,£6,07,20,04 
1160 DATA 70,D6,08,67,F1,10,ED,E1,71,C0 
11708 DATA 08,57,C01,0D,20,E£1,7C,06,40,€7 
1180 DATA 7D,C€6,50,6F,30,0A, 24,7C,E6,07 
11908 DATA 20,04,7C,D6,08,67,15,20,C8,C09 
1200 DATA Y5,D5,0€£,08,C5,E5,CB,3E,5D,54 
1219 PATA. ¿D,2D,B7,20,04,7C,29,E6,07,<0 
1220 DATA 04,70C,C6,08,67,1A,CB,3E£,78,04 
1230 DATA C2B,9F,18,02,CB,DF,CB,5E,28,02 
1240 DATA 28,FF,12,10,DB,70B,9E,E1,7 
1250 DATA 48,67,C1,0D,20,C0C,7C,D6,40,67 
1260 DATA 7D,206,290,6F,30,2A,24,70,E6,07 
1270 DATA 20,04,7C0,D6,08,67,D1,15,2M 
1280 DATA C9,05,D5,0E, 08, C05,E9,€C5,5D,54 
1290 DATA 7D,2D,B7,20,0A,7C,25,E£6,07,20 
1300 DATA 04,70,C06,08,07,7E,17,.4F,1A,1F 
1310 DATA 1F£,0€,04,1F,CB,39,CB,279,1fF,10 
1320 DATA F8,12,C1,10,DA,7£,1F,0€,04,0F 
1330 DATA CB,2F,10,FB,77,E1,70,C06,08,07 
1340 DATA C1,0D,20,C9,772,D6,40,67,7D,C6 
1350 DATA 50,6F,720,04,24,7C,E6,07,20,04 
1360 DATA 7C,D6,88,67,D1,15,20,AA,C9,2 
1370 DATA 68,9C,3E,0D,CD,5A4,BB,7E,0A,CD 


138 
139 
140 
141 


Una 
salva 


0 DATA 54,BB,3E,7C,CD,5A,BB,7E,223,CB 
O DATA 7F,20,045,CD,5A,BB,18,FS,CB,BF 
0 DATA CD,SA,BB,3E£,0D,CD,5A,BB,3E,RLA 
0 DATA CD,5A,BB,7£,B7,20,DD,C9 


vez tecleado y comprobado el código máquina, se debe 
r con uma sentencia como esta: 


SAVE 'mcjuego”,B,400400, 1208 


Bombar der o 

Para demostrar el uso de este paquete, tenemos el juego 
del Bombardero. Es, en nuestra imparcial opinión, una de las 
mejores versiones del popular juego del ''bombardero que des- 
truye los edificios para hacer una pista de aterrizaje", que 
hemos visto en el Amstrad. El programa incluye un diseño de 
avión hecho com ocho caracteres UDG, una gran bomba yJgráfica 
y muy buenos efectos de sonido. 

El programa nos muestra lo que se puede conseguir en rela- 
tivamente poco tiempo usando el paquete de escritura de jue- 
gos. 

10 SYMBOL AFTER 256: MEMORY 27299939: SYMBOL AFTER 2736 

20 LOAD "mciuvego",4280900 

30 CALL 44q009 

40 ENT 1,2730,1,73,230,1,73 

50 ENT -2,0,2,2,14,-2,2 

60 RANDOMIZE TIME | 

70 SYMBOL 2404,120,124,62,63,31,31,67,62 

80 SYMBOL 241,0,0,0,0,2599, 295,299, 2373 

90 SYMBOL 242,0,0,0,0,224,24,20€6,2559 

100 SYMBOL 247,31,00,112,0,0,4,9,9 

110 SYMBOL 244,251,127,135,71,31,62,60,0 
182 


120 
130 
140 
150 
168 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 

20 
330 
340 
350 
360 
370 


380 
390 
400 
410 
420 
430 


SYMBOL 245, 231,255, 240,192,128,0,0,0 
SYMBOL 246,234,0,04,9,0,9,0,2 

SYMBOL 247,231,90,271,1292,66,730,60,12% 
SYMEOL 249,126, 259, 299, 292, 229,126,120,008 
SYMBOL 24%, 235, 255,241,241,2355, 241,241,235 
SYMBOL 250,235, 239,147,147%,255, 1473, 1473,295 
s$t=" "1? 4 ESPACIOS 

a$=CHR$ (240) + CHR$ (241) + CHR$S (241) + CHR$ (242) 
b$t=CHR$ (243) + CHRS (244) + CHAS (245) + CHR$ (246) 
INK 0,14: INK 1,0: INK 2,6: INK 3,24 

BORDER 14:MODE 1 

m$="Bombardero '": ¡BIGPEINT,10,1,0m$,7,2 
FOR n=5 TO 37 STEP < 

==15-INTIíRND*10> 

PEN 2+nm2 MOD 2 

FOR y=x TO 25 

LOCATE nm. y: PRINT CHRS$ (249) CS HEB (250) 

NEXT: NEXT 

che=M:2rei=0: PEN 1:LOCATE 1,1 

PRINT a$: PRINT b$ 

SOUND 159,500,2000,7,0,0,1 


IF vis 27 AND INFEVI471=0 GOTO 470 
IF y=30 AND m=22 070 1122 

FOR n=1 TO 2:NEXT 

IF c=1 THEN 'PEADCHAP, y+4),1041,Bch%: 1F char: 242 
GOTO 2920 

¡ RSCROLL) v, +4, 14, 1441 

c=c+1:1F c=9 THEN c=1:v=vy+1 

IF v:c3? GOTO 240 

LOLATE 77,40 PRINT =$ 

LOCATE 237,u4+1:PRINT s$ 

LOCATE 1,u4+t1:PRINT as 


[440] LOCATE 1,u4+2:PRINT b$ 


SOUND 129,500,2000,7,4,0,1 


v=1l 0 ui=4+t1:50T0 2340 


A A 

' PEADCHAR, x, y, Bch%: 1F chx>32 THEN t=y: GOTO 710 
¡READCHAR, <, y+1,8ch%: ; PEADCHAR, », y+t2,Ocr% 

SOUND 130,730,500,5,0,1 

LOCATE *%,y:PRINT CHP$(247): LOCATE x,y+1:PRINT 
CHR$ (248) 

IF ch%*crx4 S50TO 700 

IF c=1 THEN ; READCHAFR, v+4,u+1,8c0h%: IF ch%>24e 
GOTO 920 

¡ RSCPOLL, v, v+4, ta, 14+ 1 

FDSCROLL) 4) %), Y) y+2? ¡ DSOROLL) xx.) Y) Y+2 

c=sc+l: IF c=9 THEN c=1:v=v+1 

IF v:37 GOTO 640 

LOLCATE 27, W6:PRINT s$ 

LOCATE 37 ,ut1:PRINT s$ 

LOCATE 1,1u6+1:PRINT s$ 

LOCATE 1,u4+2:PRINT b$ 

SOUND 129,500,2080,3.0,0,1 

v=1: W=w4+1 

b=y 

y=y-(d=c1-(d-1=(c+3) MOD €) 

IF b<y THEN | READCHAR, x<, y+2,Bch%: IF ch%+32 GOTO 700 
IF y<23 GOTO 530 

LOCATE x,y:PRINT " ":¿LOCATE x,y+1:PPINT " " 
SOUND 130,0,98,0:GOTO 3440 

t=y+2:LOCATE x,y:PRINT " ":LOCATE x+(x MOD 2=0), 
y+1:PRINT " "2? 2 espacios 

IF t<11 OR t<x23 AND RND<0.7 THEN b=t+ 1NT ( (24-t)/2) 
ELSE b=25 

IF PND>0.6 OR b=25 AND RND>0.3 THEN q=4 ELSE q=8 
m= (1+b-t)* (q9-2):z=x+1 

IF x MOD 2=0 THEN z=x=x:x=x-1 


SOUND 130,100x*xq,800,159,0,2 
FOR n=1 TO m 

¡DECROLL, x,2,t,b 

TF c=1 THEN !READCHAR, v+4,w+1,€ch%: IF chx%>248 
GOTO 92 

¡ RSCROLL, v, v+4, 0, 1441 

IF aq=4 THEN ¡DSCROLL, x,23t,b 
ec=c+1:1F c=9 THEN c=1:v=v+1 

IF v:37? GOTO 890 
LOCATE 37,4: PRINT =$ 
LOCATE 37, ,u+1:PRINT s$ 
LOCATE 1,u+t1:PRINT a$ 
LOCATE 1,u+t2:PRINT b$ 
SOUND 129,500,2000,73,0,0,1 
v=11a=u4+1 
NEXT 
SOUND 130,9,0,0 
GOTO 740 
SOUND 135,9,0,0 

'¿EXPLODE: INK 2,6,24: INK 3,24,6: SPEED INK 2,2 
IF 1>2% GOTO 1050 
t=uib=t+2 

¿¡PEADCHAR.v,b,8ch%: 1F chs>32 GOTO 980 
b=b+1:1F b:26 GOTO 960 
b=b-1:m= (b-t-1)*8 
FOR n=1 TO m: :DSCROLL, v, v+1,t,b:NEXT 
t=m:b=t+2 

'¡READCHAR, v+2,b,ch%: IF ch%x>»32 GOTO 1030 
b=b+1: 1F b<26 GOTO 1010 
b=b-1:m=(b-t-1)*8 

FOR n=1 TO m: ¿ DSCROLL, v+2,v+3,t,b: NEXT 
PEN 1: FOR m=1 TO 20900: NEXT 

LOCATE 12,2:PRINT "Otro Juego? (S/N)” 
BORDER 1 


1080 r8=UPPER$S (INKEYS) 

1090 IF r$="S" GOTO 210 

1100 IF r$:s>"N"“ GOTO 1080 

1110 END 

1120 FOP n=1 TO £8 

1130 SOUND 175,100-n,2,7 

1140 : RSCROLL,30,40,19,24 

1159 IF n MOD 3=0 THEN ¡USCROLL,70,40,19,24 
1160 NEXT 

1170 PEN 2 

1180 m$=" ENHORABUENA * ": ¡BIGPPINT,6,12,€m8$,2,3: GOTO 1050 


La barra de espaciado hace Caer las bombas, y el objetivo 
consiste en limpiar la pantalla de edificics antes de ate- 
rrizar, y despegar de nuevo. Cuando juegue con él, observe 
la suavidad del movimiento del avión a través de la pantalla 
e intente adivinar dónde se han usado los nuevos comandos. 
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APENDICES 


A - Mapa de Memoria 
B - Códigos de Operación del 280 


C - Conversión Hexadecimal a Decimal 
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APENDICE A 


Mapa de Memor ia 


Debemos mencionar algunos puntos relacionados con el mapa 
de la memoria del Amstrad. 


Primero, el mapa de memoria es bastante complicado, ya que 
deben operar 64Kk de RAM y 32K de ROM en los 64K de memoria 
disponible - de ahí el cambio de bancos de memoria. Segundo, 
todas las direcciones dadas en el mapa de la pantalla están 
en hexadecimal. Tercero, observe las direcciones de seis dí- 
gitos en lo alto del mapa de la pantalla. 010000 es la fron- 
tera superior y es, en efecto, uno más alto que la dirección 
real, que es FFFF. 


00000 010000 
MEMORIA DE PANTALLA ROM SUPERIOR 
POR DEFECTO (banco solapable) 
coda coa 
PILA, FECHA Y 
BLOQUES DE SALTO 
B100 
DATOS PRIMARIOS 
ACOQ0 
DATOS SECUNDARIOS 
2277 HIMEM 
MEMORIA LIBRE 
(Programa del usuario | 
y Variables) | 
27227 
2277 4000 
DATOS SECIUNDARIOS 
2040 
ROM INFERIOR 
AREA DEL FIRMWARE ”? 
0009 0000 — 
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APENDICE B 


En este apéndice le damos una lista completa de los códi- 
gos de operación e instrucciones del 280. 

El significado de los símbolos es: 
Rea A, B,> €, D, Ez, H, L 
Regpar HL, Bl, DE, SP 
Modo doi 
Oper ard1 A, B, LC, D, E, H, L, (HL), (IX+des), 

(IY+des), datos 
Operando A, B, C, D, E, H, t, (HD), (IX+des), (IY+des) 
Des desplazamiento, un número entre 0 y 255 
Datos un número entre Q y 255 
Dir una dirección entre 0 y 695935 
Ce condiciones Z, NZ, C, NC, P, M, PE, PO 
Cc condiciones 2, NZ, C, NC 
Vector dirección 0, 8, 16, 24, 32, 40, 48 o 956 
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¡qx___  Q<»MAADaa AAA A 


Sumar io de 


Funciones 


ADC — A,operandi 


ADC HL, regpar 


ADD  A,operand1 
ADD  HL,regpar 
ADD IX, regpar 
ADD IX, IX 
ADD  IY,regpar 
ADD  IY,IY 


AND  operand1 


BIT  b)>operandi 
CALL dir 


CALL cc, dir 


Gr operandl 


CPDR 


CPI 
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Instrucciomnes y 


del <e0 


¿Suma UN operando y el bit de acarreo 
jal acumulador 


¿Suma un per de registros y el bit de 
jacarreo al acumulador 


¡Suma un operando al acumulador 
¡Suma un par de registros a HL 
¡Suma un par de registros a IX 
¿suma 1X a sí mismo 
¿Suma un par de registras a IY 
¿Suma IY a sí mismo 


¡AND lógico de un operando con el 
jacumulador 


¡Comprueba el bit b del operando 
¡Llama a una dirección 

¡llama a una dirección si CC. es válido 
¡Complementa el señalizador de acarreo 
¡Compara el operando com el acumulador 


¡Compara (HL) con el acumulador, 
jdecrementa HL y BC 


¡Compara (HL) con el acumulador, 
¡decrementa HL y BC, y repite hasta 
¡BC = 0 o coincidan los valores 


¡Compara (HL) con el acumulador, 
jimcrementa HL y decrementa BC 


El 


EX 


EX 


EX 


EX 


EX 


EXX 


HALT 


Im 


IN 


IN 


INC 


INC 


operando 
IX 
IY 


sP 


des 


(SP), HL 
(SP), 1X 
(SP), IY 
AF, AF? 


DE, HL 


modo 


A, (dato) 


reg, (C) 


operando 


regpar 


¡Compara (HL) con el acumulador, 
¿incrementa HL, decrementa BC, y repite 
¡hasta BC = 0 o coincidan los valores 
jComplementa (invierte) el acumulador 
¡Ajuste decimal del acumulador 
¡Decrementa el operando 

¡Decrementa IX 

¡Decrementa IY 

¡Decrementa el apuntador de la pila 


3Inmhabilita las interrupciones 


¡Decrementa B y salta al desplazamiento 
jsiB <> Q 


j¡Habilita las interrupciones 
j¡lntercambia (SP) y Hit 

¡lntercambia (SP) e IX 

¡Intercambia (SP) e IY 

¿Intercambia AF con los alternados AF 
¡Intercambia DE con HL 

jIntercambia los registro generales con 
¡los alternados 

¡Suspende las operaciones de la cru 
¡Activa el modo de interrupción 
3jIntroduce un dato en el acumulador 
¿desde la puerta indicada por el 


jacumulador y el dato 


¡Introduce um dato en reg desde la 
jpuerta indicada por el registro C 


jIncrementa el operando 


Incrementa un par de registros 
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| 


INC 


INC 


IND 


INDR 


INI 


INIR 


yP 


yP 


JP 


JP 


JP 


JR 


JR 


LD 


LD 
LD 
LD 
LD 
LD 


LD 
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IX 


IY 


(HL) 
(DO 
(IM) 
dir 


ec,dir 


des 
c, des 


A, I 


A, operand1 


AR 
(BO,A 
(DEJ,A 
(HL), dato 
Ht, (dir) 


¡Incrementa IX 


jIncrementa IY 


¡Carga (HL) con el dato de la puerta 
jindicada por el registro € y decrementa 


¡HL y B 


¡Carga (HL) con el dato de la puerta 
¿jindicada: por el registro €, decrementa 


¡HL y B, 


y repite hasta que B = UY 


¡Carga (HL con el dato de la puerta 
¡indicada por el registro C, decrementa 
¡Be incrementa HL 


¡Carga (HL) con el dato de la puerta 
¿indicada por el registro €, decrementa 


¡Be incrementa HL, 


jB= 0 

¡Salta a 
¡Salta a 
¡Salta a 
¡Salta a 


¡Carga el 


y repite hasta que 


la dirección de HL 
la dirección de IX 
la dirección de IY 
la dirección 


contador de programa con la 


¡dirección si cc es válido 


¡Salta el 


¡Salta el 


¡Carga el 


desplazamiento 
desplazamiento si c es válido 


vector de interrupción dentro 


¿del acumulador 


¡Carga el 
¡Carga el 
¡Carga el 
¡Carga el 


¡Carga el 


¡Carga (dir) 


operando dentro del acumulador 
REFRESH dentro del acumulador 
acumulador en (BC) 

acumulador en (DE) 

dato en (HL) 


dentro de HL 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LDD 


LDDR 


LDI 


(HL), reg 


I,A 


IX, dir 
IX, (dir) 


(IX+des), dato 


IY,dir 
IY, (dir) 


(IY+*des), dato 


(dir),A 


(dir),regpar 


(dir), IX 
(dir), IY 


regpar,dir 


RA 

reg, operandi 
SP, HL 

SP, 1X 


SP), IY 


¡Carga el registro en (HL) 


¡Carga el acumulador en el vector de 
jinterrupción 


¡Carga la dirección en IX 
¡Carga ídir) en IX 


¡Carga el dato dentro de 
31X + desplazamiento 


¡Carga la dirección en IX 
¡Carga (dir) en IY 


¡Carga el dato dentro de 
3¡IY + desplazamiento 


¡Carga el acumulador dentro de (dir) 


¡Carga el par de registros dentro 
¡de (dir) 


¡Carga 1X dentro de (dir) 
¡Carga IY dentro de (dir) 


¡Carga la dirección dentro del par 
¡de registros 


¡Carga el acumulador dentro del REFRESH 
¡Carga el eperando dentro del registro 
¡Carga HL dentro del apuntador de pila 
¡Carga 1X dentro del apuntador de pila 
¡Cargaa 1Y dentro del apuntador de pila 


¡Carga (HL) dentro de (DE, decrementa 
DE, BC y HL 


¡Carga (HL) dentro de (DE), decrementa 
¡DE, BC y HL, y repite hasta que BC = Q 


¡Carga (HL) dentro de (DE), incrementa 
¿DE y HL, y decrementa BC 


195 


LDIR 


NEG 


NOP 


or 


OTDP 


OTIR 


OUT 


OUT 


OUTD 


OUTI 


POP 


POP 


POP 


PUSH 


PUSH 


PUSH 


RES 


RET 


RET 


RETI 


196 


operandl 


(d),reg 
(dato),A 
regpar 

IX 

10 

regpar 

IX 

IY 

b, operando 


cc 


¡Carga (HL) dentro de (DE), incrementa 
¡DE y HL, decrementa BC, y repite hasta 
¡BC = 0 


Niega el acumulador 
¡No operación 


¡OP lógico entre el operando y el 
jacumulador 


¡Carga (HL dentro de la puerta C, 
jdecrementa B y HL, y repite hasta 
jque B=0 

¡Carga (HL) dentro de la puerta C, 
jincrementa HL, decrementa B y repite 
¡hasta que B = 0 

¡Carga el registro en la puerta € 


¡Carga el acumulador en la puerta dato 


¡Carga (HL) en la puerta (€, decrementa 
¡HL y B 


¡Carga (HL) en la puerta €, incrementa 
¡HL y decrementa B 


¡Recupera un par de registros desde 
¡la pila 


¡Recupera 1X desde la pila 
¡Recupera IY desde la pila 


3Introduce un par de registros dentro 
¡de la pila 


¡Introduce IX dentro de la pila 
¿Introduce IY dentro de la pila 
¡Restaura el bit b del operando 
¡Retorno 

¡Retorna si la condición cc es válida 


¡Retorno desde una interrupción 


RETN 


RL operando 


RLA 


RL operando 


RLCA 


RLD 


RR operando 


RRA 


RRC— operando 


RREA 


RRD 


RST vector 


SsBC A, operando 


SBC  HL,regpar 


scF 


SET  b),opernado 


SLA operando 


¡Retorno desde una interrupción 
¡no enmascarable 


¡Gira el operando hacia la izquierda 
ja través del bit de acarreo 


¡Gira el acumulador hacia la izquierda 
ja través del bit de acarreo 


¡Giro circular del operando hacia la 
¡izquierda 


¡Giro circular del acumulador hacia la 
izquierda 


¡Giro circular hacia la izquierda entre 


¡los dos dígitos del octeto apuntado por 
¡HL y el segundo dígito del acumulador 


¡Gira el operando hacia la derecha a 
¡través del bit de acarreo 


¡Gira el acumulador hacia la derecha a 
¡través del bit de acarreo 


¡Giro circular del operando hacia 
¡la derecha 


¿Giro circular del acumulador hacia 
¡la derecha 


¡Giro circular hacia la derecha entre 
¡los dos dígitos del octeto apuntado por 
¿HL y el segundo dígito del acumulador 


¿¡Rearrancar en la dirección del vector 


¡Restar el operando del acumulador junto 
¡con el bit de acarreo 


¡Restar el par de registros de HL junto 
¡con el bit de acarreo 


¡Pone el bit de acarreo a 1 


¡Pone el bit b del operando a 1 


¡Desplazamiento aritmético del operando 
¡hacia la izquierda 


SRA 


SRL 


suB 


xOR 
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operando 


operando 


operando 


operando 


¡Desplazamiento aritmético del operando 
¡hacia la derecha 


¿Desplazamiento lógico del operando 
¡hacia la derecha 


¡Resta el operando. del acumulador 


¡OR exclusivo del operando dentro del 
jacumualdor 


Listado Alfabético de 


Instrucciones de lil 


NEMOTECNICO 
ADC A, (HL) 
ADC A, (IX+0) 
ADC A, (IY+0) 
ADC A,b 

ADC '4A,A 

ADC A,B 

ADC A,C 

ADC A,D 

ADC A,E 

ADC  A,H 

ADC A,jL 

ADC  HL,BC 
ADC  HL,DE 
ADC HL,Ht 
ADC  HL,SP 
ADD A, (HL) 
ADD A, (1X+0) 
ADD A, (IY+0) 
ADD A,0 

ADO A,A 


CODIGO OBJETO 


8E 


DD8E00 


FDSE00O 


CE00 


8F 


88 


89 


8aA 


8B 


8c 


8D 


ED4A 


EDSA 


EDGA 


ED7A 


86 


DD8600 


FOS600 


cóo00 


87 


zea 


SEÑAL IZADORES 


las 


3) 
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ADD 


ADD 


ADD 


ADD 


ADD 


AND 


AND 


AND 


AND 


AND 


AND 


AND 


AND 
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1x, SP 
IY,BC 
1Y,DE 
IY, IY 
IY, SP 
(HAL) 
(1X+0) 
(IY+0) 
0 

A 


B 


DDAGBO 


FDAG00 


EGU0 


A7 


AQ 


A1 


AZ 


N 


N 


a 


AND E AS Z P/V S 
AND H AG Z P/V S 
AND L AS Z P/V <S 
BIT 0, (HL) CB46 2 
BIT 0, (1X+0) DDCB0046 Z 
BIT 0, (1Y+0) FDCB0O046 Z 
BIT 0,A CB47 a 
BIT 0,8 CB49 E 
BIT 0,C cB41 Zz 
BIT 0,D cB42 Z 
BIT 0,É CB43 2 
BIT 0,H CB44 Z 
BIT 0,L cB45 Z 
BIT — 1,(HL) CB4E Z 
BIT— 1, (1X+0) DDCBOD4E Ed 
BIT— 1, (IY+0) FDCBO04E a 
BIT 1,4 CB4F Z 
BIT 1,8 CcB48 Zz 
BIT 1,€ CB49 Z 
BIT 1,D CB4A Z 
Ñ BIT 1,E CcB4B E 
BIT 1,H CB4C Zz 
BIT 1,L CB4D pl 
BIT” 2, (HL) CcB56 Zz 
BIT.— 2, (IX+0) DDCBu056 Zz 
BIT. 2, (IY+0) FDCBaR56 Zz 
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202 


3, (HL) 
3, (1x+0) 


3, (1IVY+0) 


4, (HL) 
4, (1X+0) 


4, (IY+0) 


CcBsoZz 


cBsz 


CB54 


CcBS5S 


CBSE 


DDCBADSE 


FDCB0OASE 


CcBSsF 


CcB58 


cB39 


CBsgA 


CBoD 


Cer 


DOCBaDAan 


FDOCB00A56 


Z 


N 


N 


N 


N No ON 


BIT 


4,H 

4, 

5, (HL) 
5, (1X+0) 


S, (IY+0) 


9, (HL) 
6, (1X+0) 


6, (IY+0) 


7, (HL) 
7, (1X+0) 
7,(1Y+0) 


7,A 


CcBOo4 


CcBOS 


CcB6E 


DOCB0A06E 


FDCBU06E 


CcBó6F 


cBog 


CBO9 


CBÓA 


cBoB 


DDCB0076 


FDOCB0076 


CcB77 


CcB70 


cB71 


CB72 


CcB73 


CB74 


cB7S5 


CcB7E 


DDCB007E 


FOCB0O07E 


cB7F 
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204 


0 
(HL) 
(1X+0) 
(IY+0) 
A 


B 


cB78 


CcB79 


CB7A 


CB7B 


CcB7C 


CcB7D 


cDenoa 


pDcao0a 


FCco00a 


D40000 


c400008 


F40090 


ECO0O0a 


E400Va 


ccaonao 


3F 


FE0OO 


BE 


DDBE00 


FDBE00 


BF 


B8 


B9 


BA 


B8 


Bc 


cP Lt 
CcPD 

CPDR 

CPI 

CPIR 

cPL 

DAA — (HL> 
DEC (HL) 
DEC. (IX+0) 
DEC. (1Y+0) 
DEC. A 
DEC B 
DEC” BC 
DEC € 
DEC  D 
DEC” DE 
DEC E 
DEC  H 
DEC  Ht 
DEC IX 
DEC IY 
DEC L 
DEC — SP 
DI 

DINZ Y 

El 


BD 

EOne 
EDB9 
EDA1 


EDB1 


pD3500 


FD3500 


1000 


N 


N 


PIV 


P/V 


P/V 


P/V 


P/V 


Y) 


(09) 
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EX 


EX 


EX 


EX 


EX 


EXX 


HALT 


IM 


Im 


IM 


IN 


IN 


IN 


IN 


IN 


IN 


IN 


IN 


iNcC 


INC 


INC 


INC 


INC 


INC 


INC 


INC 


206 


(SP) , HL 
(SP), IX 
(SP), IY 
AF, AF? 


DE, HL 


(HL) 
(1X+Q) 
(IY+0) 
A 

B 


BC 


E3 


DDE3 


FDES 


DD3400 


FD3400 


3C 


04 


03 


bc 


14 


N 


P/V 


P/V 


P/V 


(09) 


e 


INC 
INC 
INC 
Inc 
INC 
INC 
INC 
INC 
IND 
INDR 
INI 
INIP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JP 
JR 


JR 


DE 


sp 


EDAA 


EDBA 


EDAZ 


EDB2 


c3a000 


E9 


DDEOS 


FDES 


DAQeVO 


FA0000 


D20000 


cz0000 


F20000 


EA0000 


E20000 


cA0000 


1800 


3800 


P/V 


(0) 
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JR 


JR 


JR 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 
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(BCO),A 
(DEJ),A 
(HD ,0 
(MHMDOD,A 
(Hi) ,8B 
(HL) ,C 
(HI) ,D 
(HD E 
(Ha, HA 
(HD, L 
(1x+0),0 
(IX+0),A 
(1x+0),B 
(1x+0),C 
(1X+0),D 
(1X*0),E 
(DAD ,H 
(1X+0),L 
(1Y+0),0 
(IY+0),A 
(1Y+0),8 
(IY+0,€ 


(IY+0),D 


3000 


20900 


2800 


3600 


DD360004 


DD?740 


DD7000 


DD71009 


DD7200 


DD7300 


DD7400 


DD7500 


FO360000 


FD7700 


FD7000 


FD7190 


FD7200 


LO 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


(IY+-0),E 
(IY*D),H 
(IY*0),L 
(0000) ,A 
(0800) BC 
(0000), DE 
(28000), HL 
(0000), IX 
(0000), I1Y 
(0000), IX 
A, (BC) 

A, (DE) 

A, (HL) 

A, (IX+0) 
Ar CIVAO) 


A, (0QA0, 


FD7300 


FD7400 


FD73500 


320000 


ED430000 


EDSz30000 


220000 


DD220000 


FD220000 


ED73q020 


DA 


1A 


HE 


DD7EQ0n 


FDO7EQA 


z3A0Q00A 


s3eE08 


7F 


78 


79 


7A 


78 


7C 


EDS7 Z PIV S 


7D 


EDSF Z P/VS 
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LD 


LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 


LD 
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B, (ALA 
B, (1X+0) 


B, (IY+0) 


BC, (1ARA) 
ec,a0na 
€, CHL) 

C, (1X+0) 


C, CIY+QM) 


D, (HL) 


D, (IX+01 


46 


DO4600 


FD4600 


0604 


47 


40 


41 


ED4B00ADA 


pe1002m 


4E 


DD4EQ0 


FDO4ER0 


Q0E00 


4F 


48 


49 


4A 


48 


DDS600 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


Lo 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


D, (IY+0) 


DE, (0000) 
DE,0ARO 
E, (HL) 

E, (1X+0) 


E, (IY+D) 


H) CHLO 
RH, (1X+0) 
H), CIY+0) 


4,0 


FD5600 


1690 


37 


50 


51 


EDSB0000 


119002 


SE 


DD5EGO 


FDSEQO 


1€£00 


sF 


58 


59 


SA 


5B 


5e 


5D 


66 


DDS600 


FD6600a 


2600 
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LD. 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 


LD 
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HL, (0000) 
HL, (AAA) 
HL, QaROa 
IA 

1X, (0000) 
1x,0000 
1Y, (4000) 
1Y,0000 
L), (HL) 

L, (1X+0) 


L, (IY+0) 


2A0000 


EDeEBaADAN 


210000 


ED47 


DD2A0000 


DD219000 


FDZ2A0000 


FD21%2000 


o0É 


DDEE0OA 


FD6E00O 


2E00 


oF 


68 


69 


oA 


eB 


ec 


6D 


LD 


LD 


LD 


LD 


LD 


LD 


LDD 


LDDR 


LDI 


LDIR 


NEG 


NOP 


OR 


OR 


OR 


OR 


OR 


OR 


OR 


QRrR 


OR 


OR 


OR 


RA 

SP, (0000) 
sP,0009 
SP, HL 

SP, IX 


SP, IY 


(HL) 
(IX+0) 
(IY+0) 
0 

A 

B 


iS 


ED4F 

ED7B0000 

3100090 

FS 

DDF9 

FDF9 

EDA8S P/V 
EDB8 

EDAO P/V 
EDBO 

ED44 CZ PV 
00 

B6 Z P/V 
DDB600 Z P/V 
FDB600 Zz P/V 
Fo600 Z PIV 
B7 Z P/V 
BO Z P/V 
B1 Z P/V 
B2 Z PIV 
B3 Z P/V 
B4 Z P/V 
B5 Z P/V 


109) 


(09) 


09) 


(0),0D 


(9),É 
(0,H 
(09), ,L 


(MA 


AF 

BC 

DE 

HL 

1X 

EY 

AF 

BC 

DE 

HL 

IX 

TY 

0, (HL) 
0, (1X+0) 
0, (1Y+0) 
0,A 


0,8 


EDS1 


EDS9 


EDG1 


EDOO9 


D30ub 


EDAB 


EDAZ 


Fi 


c1 


D1 


El 


DDE1 


FDE1 


FS 


cs 


DS 


ES 


DDES 


FDES 


c886 


pDDCBa086 


FDCB0066 


CB87 


cB8g0 


Zz 


Z 


CzZ PV 


e 


> 


| RES 0,D CcB82 
| RES 0,E CB83 
RES 0,H cBe4 
RES 0,L cB85 
RES 1, (HL) CB8E 
RES 1, (1X+0) DDCB008E 
RES 1, (1Y+0) FOCBUASE 
RES 1,4 cBeF 
RES 1,8 cBs8e 
RES 1,€ CcB89 
RES 1,D CBS8A 
RES 1,E CB8B 
RES 1,H ¡AO 
RES  1,L cBaD 
RES 2, CHLA CcB96 
RES 2, (1X+0) DDOCB0aN6 
RES 2, (1Y+0) FOCBOU9O 
RES 2,A CBo7 
RES 2Z,B cB>90 
RES 2,C cBo91 
RES 2,D cBoZz 
RES 2,E CcB93 
RES  2,H CB94 
RES 2Z,L CcB95 


RES 3, (HL) CBOE 


RES 


RES 


RES 
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3, (1X+0) 


3, (1Y+0) 


4, (HL) 


4, (1X+0) 


4, (IY+0) 


5, (HL) 


5, (1Xx+0) 


5, (IY+0) 


DDOCBOADIE 


FDCB0O09E 


CcBoF 


cB98 


CB99 


“CBOA 


cB9B 


CcBoc 


CB9D 


CBA6 


DOCBADAG 


FDCBUDAS 


CBA7 


CBA0Q 


CcBA1 


CBAZ2 


CBA 


CBA4 


CBAS 


CBAE 


DDCBOBDAE 


FDCBODAE 


CBAF 


CBAS 


CBA9 


CBAA 


O, (HL) 
6, (1X+0) 


6, (IY+0) 


6,H 

6,L 

7, (HL) 
7, (1Xx+0) 
7, (IY+0) 
7)A 


7,B 


CBAB 


CBAC 


CBAD 


CcBB6 


DDCB00BGS 


FDCB00B6 


CBB7 


cBBa 


CBB1 


CcBB2 


CBB3 


CBB4 


CBBS 


CcBBE 


DOCBO0BE 


FOCB0O0BE 


CcgBF 


CcB8B8 


CcBB9 


CBBA 


CBBB 


cBBC 


CcBBD 


c9 


D8 


F8 
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RET 
RET 
RET 
RET 
RET 
RET 
RETI 


RETN 


RLA 


NC 


PE 


PO 


(HL) 
(1Xx+0) 
(1X+0) 
Á 


B 


(HAL) 
(1X+ 0) 
(1Xx+ 0) 


A 


DO 


co 


FO 


ES 


EQ 


c8 


ED4D 


ED45 


cB16 


pDDcBo0u16 


FDOCBO016 


cB17 


CcB10 


c811 


cB12 


cB13 


CB14 


cB15 


17 


cBa6 


DDCB0006 


FDCB0006 


(9) 


Mm 


(0) 


(0) 


Ún 


m 


109) 


(0) 


ñ 


Mm 


00) 


N 


10) 


0) 


108) 


(09) 


(09) 


íñ 


RRE 


RRE 


RRE 


RRE 


RRC 


CHL> 
CIX+ DO) 
(1IX+ 0) 
A 


B 


(HL) 
(1X+0) 
(1X+0) 
A 


B 


C 


D 


E 


CBO3 


cB04 


cBoS 


07 


EDGF 


cB1E 


DOCB0O01E 


FDCBA01E 


CcB1F 


CBoE 


DDCB0O4BBE 


FDOCB00a0E 


cBoF 


cB08 


cBO9 


CBRA 


CB0B 


cBoc 


cBoD 


P/V 


P/V 


n 


m 
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RRCA aF Cc 


RRD EDO 7 Z P/V < 
RST 00H C7 

RST 08H CF 

RST 19H D7 

RST 18H DF 

RST 20H EZ 

RST 28H EF 

RST 30H F7 

RST 38H FF 

SBC A, (HL? 9E CZP/VS 
SBC A, (1X+0) DD9E00 CZPVS 
SBC A, (IY+0) FDOSE00 CZPfVS 
SBC A,0 DEQO CZ PV S 
SBC A,A oF C2PIVS 
SBC A,B 98 C 2 PV OS 
SBC A,C 99 CZ PIVS 
SBC A,D 39A CZP/VS 
SBC A,E 9B CZ PPVS 
SBC A,H ac Cc 2 P/VS 
SBC A,t 9D CZ PV OS 
SsBC  HL,BC ED42 CZP/VS 
SBC  HL,DE EDSZ2 CZ2P/VS 
SBC  HL,HL EDOZ CZP/VS 
SBc  HL,SsP ED72 CZP/VS 
scF 37 e 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


0, (HL) 
0, (1X+0) 


0, (1Y+0) 


1, (HL) 
1, (1X+0) 


1, (1Y+0) 


2, (HL) 
2, (1X+0) 


2, (1Y+0) 


caco 


DDOCB00C6 


FDCB00CO 


cB87 


CBCE 


DDCBUOCE 


FDCBOOCE 


CBcr 


cBc8S 


CBCOo 


CBCA 


CcBcCB 


CcBcc 


[o/=1019) 


CcBD6 


DDCBo0aD6 


FDCB00D6 


CcBD7 


CcBDa 


CcBD1 
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> 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 
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3, (HL) 
3, (1X+0) 


3, (1Y+0) 


4, (HL) 
4, (1X+0) 


4, (1Y+0) 


S, (HL) 


5, (1X+ 0) 


cBD2 


CBD3 


CBD4 


CBD5 


CBDE 


DDCBL0DE 


FOCBOOWDE 


CBDF 


CBD8S 


CBD9 


CEDA 


CBODB 


CBDC 


CBDD 


CBEÓ 


DOCB00E6 


FDCB00E6 


CBE7 


CBE0 


CBE1 


CBEZ 


CBES3 


CBE4 


CBES 


CBEE 


DDCB00EE 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


SET 


5, (IY+0) 


O, (HL) 
6, (IX+0) 
6, (IY+0) 
6A 


6,B 


7, (HL) 
7, (1X+0) 
7, (1Y+0) 
7,A 


7,B 


FDCBODEE 


CBEF 


CBES 


CBE9 


CBEA 


CBEB 


CBEC 


CcBED 


CBFÓ 


DDCB00FO 


FOCBO0FO 


CBF7 


cBFa 


CBF1 


CBF2 


CBF3 


CBF4 


CBFS 


CBFE 


DDCB00FE 


FOCBO0OFE 


CBFF 


CcBF8 


CBF9 


CBFA 


CBFB 


223 


AAN 


SET 7,H cBFC 
SET 7,L CBFD j 
SLA (HL) cB26 2 PINOS 
SLA  (1IX+*0) DOCBL026 CZPIVS 
SLA — (1X+0) FOCB0026 Cc ZPIVOS 
SLA A c827 CzZ PIS 
SLA 8 ce20 CzZPS 
SLA Cc c821 2 
SLA D cB22 Ccz2 PS 
SLA E cB23 CzZPNS 
SLA H cB24 CcZ2PS 
SLA L cB25 EXP 
SRA (HU) CB2E CczPIivS 
SRA (1IX+0) DDCB002E Ea PE 
SRA (1X+0) FOCB002E EPR 
SRA A cB2F 2 PIE 
SRA B cB28 CzZPIVS 
SRA Cc cB29 cz P/VS 
SRA 0D CBZA 2 PS 
SRA E cB2B ZP OS 
SRA H cB2c CES 
SRA L cB20 CE PIE 
SRL (HL) CB3E cz PIS 
SRL (IX+0) DOCBOB3E CZENS 
SRL (IX+0) FDCBOO3E SZPRVS 
SRL A CB3F cz PS 
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SRL .B CB38 CZP/VS 
SRL € CB39 CZP/VS 
SRL  D CB3A C2P/VS 
SRL E CcB3B Cc 2 P/VS 
SRL  H BS CZPIVS 
SRL t CB3D C2P/VS 
suB 0 D60a CZP/VS 
sUuB (HL) 96 Cc Z P/V S 
SUB  (1X+0) DO9600 CZ P/V S 
SUB (IX+0) FD9600 CZP/VS 
SUB A 97 CZP/VS 
suB B 90 CZP/VS 
suB Cc 91 C 2 P/VS 
suB D 392 CZP/VS 
SsuB E 93 C2Z2P/VS 
SUB H 94 CZ P/VS 
SsuB L 95 CZP/VS 
XOR (HL) AE Z P/VS 
XOR — (1X+0) DDAE0O 2 P/V S 
XOR  (1Y+0) FDAE00 Z P/V S 
XO0R 9 EEOO Z P/V S 
XOR A AF Z P/VS 
XOR B A8 Z P/VS 
X0R € A9 Z P/VS 
XOR D AA Z P/VS 
XO0R E AB Z P/V S 
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XOR H AC ¿Z P/VS 


XO0R L AD Z P/VS 
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4 


ro 


APENDICE C 


Conversión Hexadecimal a Decimal 


MIMO 0 SN 0530 Qn e 


48 49 580 51 52 53 54 55 56 57 58 59 68 61 62 63 
64 65 66 67 68 69 78 71 72 73 74 79 76 77 78 79 
BN 81 82 83 84 85 86 87 88 89 Y 91 92 93 9 95 
9% 97 98 99100 101 102 103 104 185 186 107 188 199 118 111 
112 113 114 115 116 117 119 119 129 121 122 123 124 125 126 127 
128 129 134 131 132 133 134 135 136 137 138 139 14h 141 142 143 
144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 
168 161 162 163 164 165 166 167 168 169 178 171 172 173 174 175 
176 177 178 179 180 181 182 183 184 185 186 18? 188 189 198 191 
192 193 194 195 196 197 198 199 200 201 282 203 204 205 206 287 
289 249 210 211 212 213 214 215 216 217 218 219 228 221 222 223 
224 225 226 227 228 229 230 231 232 733 234 235 236 237 238 239 
240 241 242 243.244 245 246 247 248 249 250 251 252 203 254 295 
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CPC 6128-664-464 


Sobre nosotros 


Son bienvenidas las solicitudes > 

de catálogos, así como otro tipo 
de propuestas ISBN 84-86381-15-0 
Escriban a: 

RA-MA 


Editorial : 
Crta. de Canillas, 144 
28043 MADRID 


) dl 


